mirror/binutils-gdb
2
0
Fork 0
mirror of https://sourceware.org/git/binutils-gdb.git synced 2024-12-27 04:52:05 +08:00
Code Issues Packages Projects Releases Wiki Activity

(pos_atr): Account for the possibility that the argument may be a reference.

Browse Source
This commit is contained in:
Paul N. Hilfinger 2008-08-16 09:26:25 +00:00
parent 9f1d543278
commit 24209737f0
2 changed files with 9 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
gdb/ChangeLog
View File

@ -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

7
gdb/ada-lang.c
View File

@ -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 *