diff options
Diffstat (limited to 'gdb')
| -rw-r--r-- | gdb/ChangeLog | 6 | ||||
| -rw-r--r-- | gdb/ada-lang.c | 3 |
2 files changed, 7 insertions, 2 deletions
diff --git a/gdb/ChangeLog b/gdb/ChangeLog index ed4da7a..3033d11 100644 --- a/gdb/ChangeLog +++ b/gdb/ChangeLog @@ -1,5 +1,11 @@ 2021-03-15 Tom Tromey <tromey@adacore.com> + PR ada/27545: + * ada-lang.c (ada_var_value_operation::evaluate): Use recursive + call for tagged type. + +2021-03-15 Tom Tromey <tromey@adacore.com> + * ada-exp.y (exp1): Handle resolution of the right hand side of an assignment. diff --git a/gdb/ada-lang.c b/gdb/ada-lang.c index ea43a25..07958e7 100644 --- a/gdb/ada-lang.c +++ b/gdb/ada-lang.c @@ -10320,8 +10320,7 @@ ada_var_value_operation::evaluate (struct type *expect_type, a fixed type would result in the loss of that type name, thus preventing us from printing the name of the ancestor type in the type description. */ - value *arg1 = var_value_operation::evaluate (nullptr, exp, - EVAL_NORMAL); + value *arg1 = evaluate (nullptr, exp, EVAL_NORMAL); if (type->code () != TYPE_CODE_REF) { |