diff options
| author | Paul N. Hilfinger <hilfinger@adacore.com> | 2008-08-16 09:26:25 +0000 |
|---|---|---|
| committer | Paul N. Hilfinger <hilfinger@adacore.com> | 2008-08-16 09:26:25 +0000 |
| commit | 24209737f058af510525de950de9620b3c5ecd90 (patch) | |
| tree | 49fdea9de194e9e187c40c14ebf5d8876289d1de | |
| parent | 9f1d54327856555cb425e78313366cc77752a967 (diff) | |
| download | gdb-24209737f058af510525de950de9620b3c5ecd90.zip gdb-24209737f058af510525de950de9620b3c5ecd90.tar.gz gdb-24209737f058af510525de950de9620b3c5ecd90.tar.bz2 | |
(pos_atr): Account for the possibility that the argument may be a reference.
| -rw-r--r-- | gdb/ChangeLog | 5 | ||||
| -rw-r--r-- | gdb/ada-lang.c | 7 |
2 files changed, 9 insertions, 3 deletions
diff --git a/gdb/ChangeLog b/gdb/ChangeLog index a703727..9a90d50 100644 --- a/gdb/ChangeLog +++ b/gdb/ChangeLog @@ -1,3 +1,8 @@ +2008-08-16 Paul N. Hilfinger <hilfinger@adacore.com> + + * ada-lang.c (pos_atr): Account for the possibility that the + argument may be a reference. + 2008-08-16 Paul N. Hilfinger <hilfingr@adacore.com> * xcoffread.c (scan_xcoff_symtab): Do not include global symbols diff --git a/gdb/ada-lang.c b/gdb/ada-lang.c index f3f1f34..63f1a41 100644 --- a/gdb/ada-lang.c +++ b/gdb/ada-lang.c @@ -7634,7 +7634,8 @@ ada_attribute_name (enum exp_opcode n) static LONGEST pos_atr (struct value *arg) { - struct type *type = value_type (arg); + struct value *val = coerce_ref (arg); + struct type *type = value_type (val); if (!discrete_type_p (type)) error (_("'POS only defined on discrete types")); @@ -7642,7 +7643,7 @@ pos_atr (struct value *arg) if (TYPE_CODE (type) == TYPE_CODE_ENUM) { int i; - LONGEST v = value_as_long (arg); + LONGEST v = value_as_long (val); for (i = 0; i < TYPE_NFIELDS (type); i += 1) { @@ -7652,7 +7653,7 @@ pos_atr (struct value *arg) error (_("enumeration value is invalid: can't find 'POS")); } else - return value_as_long (arg); + return value_as_long (val); } static struct value * |