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

diff --git a/gdb/ChangeLog b/gdb/ChangeLog
index a70372790e76a1ab5d523c97058178b1fca98131..9a90d50efa1af40179169198315c037bcc153702 100644 (file)
--- 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 f3f1f3496241bb831c36d92705733050d65cbc87..63f1a41c09b424358361d2bf89538e27ad5eb081 100644 (file)
--- 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 *