From 24209737f058af510525de950de9620b3c5ecd90 Mon Sep 17 00:00:00 2001 From: "Paul N. Hilfinger" Date: Sat, 16 Aug 2008 09:26:25 +0000 Subject: [PATCH] (pos_atr): Account for the possibility that the argument may be a reference. --- gdb/ChangeLog | 5 +++++ gdb/ada-lang.c | 7 ++++--- 2 files changed, 9 insertions(+), 3 deletions(-) diff --git a/gdb/ChangeLog b/gdb/ChangeLog index a70372790e7..9a90d50efa1 100644 --- a/gdb/ChangeLog +++ b/gdb/ChangeLog @@ -1,3 +1,8 @@ +2008-08-16 Paul N. Hilfinger + + * ada-lang.c (pos_atr): Account for the possibility that the + argument may be a reference. + 2008-08-16 Paul N. Hilfinger * xcoffread.c (scan_xcoff_symtab): Do not include global symbols diff --git a/gdb/ada-lang.c b/gdb/ada-lang.c index f3f1f349624..63f1a41c09b 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 * -- 2.30.2