* ada-lang.c (ada_evaluate_subexp) [OP_TYPE]: Return a value with

the appropriate type rather than a bogus void type.
This commit is contained in:
Joel Brobecker
2007-01-04 06:31:52 +00:00
parent fd678c6573
commit a6cfbe6891
2 changed files with 6 additions and 1 deletions

View File

@@ -1,3 +1,8 @@
2007-01-04 Joel Brobecker <brobecker@adacore.com>
* ada-lang.c (ada_evaluate_subexp) [OP_TYPE]: Return a value with
the appropriate type rather than a bogus void type.
2007-01-04 Joel Brobecker <brobecker@adacore.com>
* ada-lang.h (ada_find_printable_frame): Remove.

View File

@@ -8578,7 +8578,7 @@ ada_evaluate_subexp (struct type *expect_type, struct expression *exp,
if (noside == EVAL_SKIP)
goto nosideret;
else if (noside == EVAL_AVOID_SIDE_EFFECTS)
return allocate_value (builtin_type_void);
return allocate_value (exp->elts[pc + 1].type);
else
error (_("Attempt to use a type name as an expression"));