From 5648af48fbb248cc37aab894165ffd344ee03cd5 Mon Sep 17 00:00:00 2001 From: Joel Brobecker Date: Sat, 27 May 2006 17:39:29 +0000 Subject: [PATCH] From Peter Schauer * m2-typeprint.c (m2_record_fields): Move variable declarations to the begining of the block. --- gdb/ChangeLog | 6 ++++++ gdb/m2-typeprint.c | 5 +++-- 2 files changed, 9 insertions(+), 2 deletions(-) diff --git a/gdb/ChangeLog b/gdb/ChangeLog index 675d1fa788a..1cc0b6f6fc8 100644 --- a/gdb/ChangeLog +++ b/gdb/ChangeLog @@ -1,3 +1,9 @@ +2006-05-27 Joel Brobecker + + From Peter Schauer + * m2-typeprint.c (m2_record_fields): Move variable declarations + to the begining of the block. + 2006-05-23 Mark Mitchell * 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 160305c7869..e057b65ce3c 100644 --- 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 OF\n")); - int i; - int len = TYPE_NFIELDS (type); for (i = TYPE_N_BASECLASSES (type); i < len; i++) { -- 2.30.2