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

inside a PAD type is a bitfield.
This commit is contained in:
Joel Brobecker
2008-05-02 23:41:40 +00:00
parent 93d4208d62
commit de4d072f96
2 changed files with 6 additions and 2 deletions

View File

@@ -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);