diff options
| author | Michael Snyder <msnyder@vmware.com> | 2010-05-16 00:18:02 +0000 |
|---|---|---|
| committer | Michael Snyder <msnyder@vmware.com> | 2010-05-16 00:18:02 +0000 |
| commit | b8d56208c522b6a27efe7790770ef65a3031da7b (patch) | |
| tree | bb5517e441b30a41ff80bf566f33988cd98630d1 /gdb/m2-lang.c | |
| parent | 54534c15fe4c4642034894c7d99c5d945c9c3792 (diff) | |
| download | gdb-b8d56208c522b6a27efe7790770ef65a3031da7b.zip gdb-b8d56208c522b6a27efe7790770ef65a3031da7b.tar.gz gdb-b8d56208c522b6a27efe7790770ef65a3031da7b.tar.bz2 | |
2010-05-15 Michael Snyder <msnyder@vmware.com>
* m2-lang.c: White space.
* m2-valprint.c: White space.
* macrocmd.c: White space.
* macroexp.c: White space.
* macroscope.c: White space.
* macrotab.c: White space.
* main.c: White space.
* maint.c: White space.
* mdebugread.c: White space.
* memattr.c: White space.
* minsyms.c: White space.
* monitor.c: White space.
Diffstat (limited to 'gdb/m2-lang.c')
| -rw-r--r-- | gdb/m2-lang.c | 11 |
1 files changed, 7 insertions, 4 deletions
diff --git a/gdb/m2-lang.c b/gdb/m2-lang.c index 9cc64bc..ade52d9 100644 --- a/gdb/m2-lang.c +++ b/gdb/m2-lang.c @@ -194,6 +194,7 @@ evaluate_subexp_modula2 (struct type *expect_type, struct expression *exp, struct value *arg1; struct value *arg2; struct type *type; + switch (op) { case UNOP_HIGH: @@ -210,6 +211,7 @@ evaluate_subexp_modula2 (struct type *expect_type, struct expression *exp, if (m2_is_unbounded_array (type)) { struct value *temp = arg1; + type = TYPE_FIELD_TYPE (type, 1); /* i18n: Do not translate the "_m2_high" part! */ arg1 = value_struct_elt (&temp, NULL, "_m2_high", NULL, @@ -239,10 +241,11 @@ evaluate_subexp_modula2 (struct type *expect_type, struct expression *exp, { struct value *temp = arg1; type = TYPE_FIELD_TYPE (type, 0); - if (type == NULL || (TYPE_CODE (type) != TYPE_CODE_PTR)) { - warning (_("internal error: unbounded array structure is unknown")); - return evaluate_subexp_standard (expect_type, exp, pos, noside); - } + if (type == NULL || (TYPE_CODE (type) != TYPE_CODE_PTR)) + { + warning (_("internal error: unbounded array structure is unknown")); + return evaluate_subexp_standard (expect_type, exp, pos, noside); + } /* i18n: Do not translate the "_m2_contents" part! */ arg1 = value_struct_elt (&temp, NULL, "_m2_contents", NULL, _("unbounded structure " |