* ada-lang.c (unwrap_value): Handle the case where the "F" field

        inside a PAD type is a bitfield.

diff --git a/gdb/ChangeLog b/gdb/ChangeLog
index 496c75ce4423a8d2482b46ea987fe6d18c1035ae..691245164d01bd8bb3fbdb861bd6e54ace133de2 100644 (file)
--- a/gdb/ChangeLog
+++ b/gdb/ChangeLog
@@ -1,3 +1,8 @@
+2008-05-02  Joel Brobecker  <brobecker@adacore.com>
+
+       * ada-lang.c (unwrap_value): Handle the case where the "F" field
+       inside a PAD type is a bitfield.
+
 2008-05-02  Ulrich Weigand  <uweigand@de.ibm.com>
 
        * ppc-sysv-tdep.c (ppc64_sysv_abi_push_dummy_call): Handle

diff --git a/gdb/ada-lang.c b/gdb/ada-lang.c
index d6441c49a0a26637febb85aed793d34db91f700e..3508a6264ca4827ee37ff818ba438fdbb8c262c3 100644 (file)
--- a/gdb/ada-lang.c
+++ b/gdb/ada-lang.c
@@ -7973,8 +7973,7 @@ unwrap_value (struct value *val)
   struct type *type = ada_check_typedef (value_type (val));
   if (ada_is_aligner_type (type))
     {
-      struct value *v = value_struct_elt (&val, NULL, "F",
-                                          NULL, "internal structure");
+      struct value *v = ada_value_struct_elt (val, "F", 0);
       struct type *val_type = ada_check_typedef (value_type (v));
       if (ada_type_name (val_type) == NULL)
         TYPE_NAME (val_type) = ada_type_name (type);