diff options
| -rw-r--r-- | gdb/ChangeLog | 7 | ||||
| -rw-r--r-- | gdb/dwarf2read.c | 47 |
2 files changed, 54 insertions, 0 deletions
diff --git a/gdb/ChangeLog b/gdb/ChangeLog index 42abace..5f12759 100644 --- a/gdb/ChangeLog +++ b/gdb/ChangeLog @@ -1,3 +1,10 @@ +Sun Oct 6 22:43:06 1996 Jason Merrill <jason@yorick.cygnus.com> + + * dwarf2read.c (read_tag_reference_type): New fn. + (read_type_die): Call it. + (dwarf_attr): Also look in the DIEs referred to by specification + or abstract_origin attributes. + Wed Oct 2 22:07:16 1996 Fred Fish <fnf@cygnus.com> * inferior.h (IN_SIGTRAMP): Pass pc to SIGTRAMP_START and diff --git a/gdb/dwarf2read.c b/gdb/dwarf2read.c index f0f008b..1dfcfe3 100644 --- a/gdb/dwarf2read.c +++ b/gdb/dwarf2read.c @@ -1728,6 +1728,43 @@ read_tag_pointer_type (die, objfile) die->type = type; } +/* Extract all information from a DW_TAG_reference_type DIE and add to + the user defined type vector. */ + +static void +read_tag_reference_type (die, objfile) + struct die_info *die; + struct objfile *objfile; +{ + struct type *type, *pointed_to_type; + struct attribute *attr; + + if (die->type) + { + return; + } + + pointed_to_type = die_type (die, objfile); + + type = dwarf_alloc_type (objfile); + TYPE_TARGET_TYPE (type) = pointed_to_type; + TYPE_OBJFILE (type) = objfile; + attr = dwarf_attr (die, DW_AT_byte_size); + if (attr) + { + TYPE_LENGTH (type) = DW_UNSND (attr); + } + else + { + TYPE_LENGTH (type) = address_size; + } + TYPE_CODE (type) = TYPE_CODE_REF; + TYPE_FLAGS (type) |= TYPE_FLAG_UNSIGNED; + + TYPE_REFERENCE_TYPE (pointed_to_type) = type; + die->type = type; +} + static void read_tag_const_type (die, objfile) struct die_info *die; @@ -2637,6 +2674,7 @@ dwarf_attr (die, name) unsigned int name; { unsigned int i; + struct attribute *spec = NULL; for (i = 0; i < die->num_attrs; ++i) { @@ -2644,7 +2682,13 @@ dwarf_attr (die, name) { return &die->attrs[i]; } + if (die->attrs[i].name == DW_AT_specification + || die->attrs[i].name == DW_AT_abstract_origin) + spec = &die->attrs[i]; } + if (spec) + return dwarf_attr (follow_die_ref (DW_UNSND (spec)), name); + return NULL; } @@ -3122,6 +3166,9 @@ read_type_die (die, objfile) case DW_TAG_pointer_type: read_tag_pointer_type (die, objfile); break; + case DW_TAG_reference_type: + read_tag_reference_type (die, objfile); + break; case DW_TAG_const_type: read_tag_const_type (die, objfile); break; |