diff options
| author | Joel Brobecker <brobecker@gnat.com> | 2008-05-02 23:41:40 +0000 |
|---|---|---|
| committer | Joel Brobecker <brobecker@gnat.com> | 2008-05-02 23:41:40 +0000 |
| commit | de4d072f96fdbe02f713796a853aa8f97eec7faa (patch) | |
| tree | b7b695f525115f0e19838aadbaecc22c867b23fe /gdb | |
| parent | 93d4208d62742d98e665ea6fded3c0dde9011564 (diff) | |
| download | gdb-de4d072f96fdbe02f713796a853aa8f97eec7faa.zip gdb-de4d072f96fdbe02f713796a853aa8f97eec7faa.tar.gz gdb-de4d072f96fdbe02f713796a853aa8f97eec7faa.tar.bz2 | |
* ada-lang.c (unwrap_value): Handle the case where the "F" field
inside a PAD type is a bitfield.
Diffstat (limited to 'gdb')
| -rw-r--r-- | gdb/ChangeLog | 5 | ||||
| -rw-r--r-- | gdb/ada-lang.c | 3 |
2 files changed, 6 insertions, 2 deletions
diff --git a/gdb/ChangeLog b/gdb/ChangeLog index 496c75c..6912451 100644 --- 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 d6441c4..3508a62 100644 --- 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); |