From Peter Schauer <peterschauer@gmx.net>

        * m2-typeprint.c (m2_record_fields): Move variable declarations
        to the begining of the block.

diff --git a/gdb/ChangeLog b/gdb/ChangeLog
index 675d1fa..1cc0b6f 100644 (file)
--- a/gdb/ChangeLog
+++ b/gdb/ChangeLog
@@ -1,3 +1,9 @@
+2006-05-27  Joel Brobecker  <brobecker@adacore.com>
+
+       From Peter Schauer <peterschauer@gmx.net>
+       * m2-typeprint.c (m2_record_fields): Move variable declarations
+       to the begining of the block.
+        
 2006-05-23  Mark Mitchell  <mark@codesourcery.com>
 
        * mt-tdep.c (mt_register_name): Correct out-of-range logic to

diff --git a/gdb/m2-typeprint.c b/gdb/m2-typeprint.c
index 160305c..e057b65 100644 (file)
--- a/gdb/m2-typeprint.c
+++ b/gdb/m2-typeprint.c
@@ -504,13 +504,14 @@ m2_record_fields (struct type *type, struct ui_file *stream, int show,
     }
   else if (show > 0)
     {
+      int i;
+      int len = TYPE_NFIELDS (type);
+
       if (TYPE_CODE (type) == TYPE_CODE_STRUCT)
        fprintf_filtered (stream, "RECORD\n");
       else if (TYPE_CODE (type) == TYPE_CODE_UNION)
        /* i18n: Do not translate "CASE" and "OF" */
        fprintf_filtered (stream, _("CASE <variant> OF\n"));
-      int i;
-      int len = TYPE_NFIELDS (type);
 
       for (i = TYPE_N_BASECLASSES (type); i < len; i++)
        {