FreeChainXenon/binutils-gdb
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

"info tasks" broken by typedefs in ATCB type definitions.

Browse source 
* 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:
Joel Brobecker 2010-01-15 12:11:21 +00:00
parent 12ab9e09fa
commit 9f0dec2d11
2 changed files with 11 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

7
gdb/ChangeLog
View file

@ -1,3 +1,10 @@
2010-01-15 Joel Brobecker <brobecker@adacore.com>
"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.
2010-01-15 Joel Brobecker <brobecker@adacore.com> 2010-01-15 Joel Brobecker <brobecker@adacore.com>
Do not use name-based lookup for unconstrained packed arrays. Do not use name-based lookup for unconstrained packed arrays.

6
gdb/ada-lang.c
View file

@ -6929,14 +6929,16 @@ ada_template_to_fixed_record_type_1 (struct type *type,
} }
else 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); TYPE_FIELD_NAME (rtype, f) = TYPE_FIELD_NAME (type, f);
if (TYPE_FIELD_BITSIZE (type, f) > 0) if (TYPE_FIELD_BITSIZE (type, f) > 0)
bit_incr = fld_bit_len = bit_incr = fld_bit_len =
TYPE_FIELD_BITSIZE (rtype, f) = TYPE_FIELD_BITSIZE (type, f); TYPE_FIELD_BITSIZE (rtype, f) = TYPE_FIELD_BITSIZE (type, f);
else else
bit_incr = fld_bit_len = 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) if (off + fld_bit_len > bit_len)
bit_len = off + fld_bit_len; bit_len = off + fld_bit_len;