diff options
Diffstat (limited to 'gdb/m2-lang.c')
| -rw-r--r-- | gdb/m2-lang.c | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/gdb/m2-lang.c b/gdb/m2-lang.c index fe02c45..42af96d 100644 --- a/gdb/m2-lang.c +++ b/gdb/m2-lang.c @@ -42,7 +42,7 @@ eval_op_m2_high (struct type *expect_type, struct expression *exp, else { arg1 = coerce_ref (arg1); - struct type *type = check_typedef (value_type (arg1)); + struct type *type = check_typedef (arg1->type ()); if (m2_is_unbounded_array (type)) { @@ -54,7 +54,7 @@ eval_op_m2_high (struct type *expect_type, struct expression *exp, _("unbounded structure " "missing _m2_high field")); - if (value_type (arg1) != type) + if (arg1->type () != type) arg1 = value_cast (type, arg1); } } @@ -73,7 +73,7 @@ eval_op_m2_subscript (struct type *expect_type, struct expression *exp, then report this as an error. */ arg1 = coerce_ref (arg1); - struct type *type = check_typedef (value_type (arg1)); + struct type *type = check_typedef (arg1->type ()); if (m2_is_unbounded_array (type)) { @@ -87,10 +87,10 @@ eval_op_m2_subscript (struct type *expect_type, struct expression *exp, _("unbounded structure " "missing _m2_contents field")); - if (value_type (arg1) != type) + if (arg1->type () != type) arg1 = value_cast (type, arg1); - check_typedef (value_type (arg1)); + check_typedef (arg1->type ()); return value_ind (value_ptradd (arg1, value_as_long (arg2))); } else |