* ada-lang.c (ada_evaluate_subexp): [OP_ATR_FIRST, OP_ATR_LAST]
[OP_ATR_LENGTH]: When using the attribute on a type, make sure to get the real type, not the associated typedef.
This commit is contained in:
parent
e0cfd8e38b
commit
5bc23cb38a
2 changed files with 7 additions and 1 deletions
|
@ -1,3 +1,9 @@
|
||||||
|
2009-03-23 Joel Brobecker <brobecker@adacore.com>
|
||||||
|
|
||||||
|
* ada-lang.c (ada_evaluate_subexp): [OP_ATR_FIRST, OP_ATR_LAST]
|
||||||
|
[OP_ATR_LENGTH]: When using the attribute on a type, make sure
|
||||||
|
to get the real type, not the associated typedef.
|
||||||
|
|
||||||
2009-03-23 Joel Brobecker <brobecker@adacore.com>
|
2009-03-23 Joel Brobecker <brobecker@adacore.com>
|
||||||
|
|
||||||
* ada-lang.c (ada_get_field_index): Add handling of the case
|
* ada-lang.c (ada_get_field_index): Add handling of the case
|
||||||
|
|
|
@ -8872,7 +8872,7 @@ ada_evaluate_subexp (struct type *expect_type, struct expression *exp,
|
||||||
{
|
{
|
||||||
evaluate_subexp (NULL_TYPE, exp, pos, EVAL_SKIP);
|
evaluate_subexp (NULL_TYPE, exp, pos, EVAL_SKIP);
|
||||||
arg1 = NULL;
|
arg1 = NULL;
|
||||||
type_arg = exp->elts[pc + 2].type;
|
type_arg = check_typedef (exp->elts[pc + 2].type);
|
||||||
}
|
}
|
||||||
else
|
else
|
||||||
{
|
{
|
||||||
|
|
Loading…
Add table
Add a link
Reference in a new issue