From 24209737f058af510525de950de9620b3c5ecd90 Mon Sep 17 00:00:00 2001 From: "Paul N. Hilfinger" Date: Sat, 16 Aug 2008 09:26:25 +0000 Subject: (pos_atr): Account for the possibility that the argument may be a reference. --- gdb/ada-lang.c | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) (limited to 'gdb/ada-lang.c') 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 * -- cgit v1.1