"info tasks" broken by typedefs in ATCB type definitions.
* ada-lang.c (ada_template_to_fixed_record_type_1): Add call to ada_check_typedef before retrieving the length of the type for regular fields.
This commit is contained in:
parent
12ab9e09fa
commit
9f0dec2d11
2 changed files with 11 additions and 2 deletions
|
@ -6929,14 +6929,16 @@ ada_template_to_fixed_record_type_1 (struct type *type,
|
|||
}
|
||||
else
|
||||
{
|
||||
TYPE_FIELD_TYPE (rtype, f) = TYPE_FIELD_TYPE (type, f);
|
||||
struct type *field_type = TYPE_FIELD_TYPE (type, f);
|
||||
|
||||
TYPE_FIELD_TYPE (rtype, f) = field_type;
|
||||
TYPE_FIELD_NAME (rtype, f) = TYPE_FIELD_NAME (type, f);
|
||||
if (TYPE_FIELD_BITSIZE (type, f) > 0)
|
||||
bit_incr = fld_bit_len =
|
||||
TYPE_FIELD_BITSIZE (rtype, f) = TYPE_FIELD_BITSIZE (type, f);
|
||||
else
|
||||
bit_incr = fld_bit_len =
|
||||
TYPE_LENGTH (TYPE_FIELD_TYPE (type, f)) * TARGET_CHAR_BIT;
|
||||
TYPE_LENGTH (ada_check_typedef (field_type)) * TARGET_CHAR_BIT;
|
||||
}
|
||||
if (off + fld_bit_len > bit_len)
|
||||
bit_len = off + fld_bit_len;
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue