diff options
| author | brobecke <brobecke@138bc75d-0d04-0410-961f-82ee72b054a4> | 2004-01-14 02:52:40 +0000 |
|---|---|---|
| committer | brobecke <brobecke@138bc75d-0d04-0410-961f-82ee72b054a4> | 2004-01-14 02:52:40 +0000 |
| commit | a84a50a57e8186235aedf442a2f6846c0f17496b (patch) | |
| tree | 8241c4c05ef37911c15644d5cbfe1503e13fc9ec | |
| parent | 4066b2c48c89963972fb742b6c1daea3b9735cf2 (diff) | |
| download | ppe42-gcc-a84a50a57e8186235aedf442a2f6846c0f17496b.tar.gz ppe42-gcc-a84a50a57e8186235aedf442a2f6846c0f17496b.zip | |
* dwarf2out.c (is_ada_subrange_type): No longer check the TYPE_NAME.
(subrange_type_die): Add handle for nameless subrange types.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@75838 138bc75d-0d04-0410-961f-82ee72b054a4
| -rw-r--r-- | gcc/ChangeLog | 5 | ||||
| -rw-r--r-- | gcc/dwarf2out.c | 13 |
2 files changed, 13 insertions, 5 deletions
diff --git a/gcc/ChangeLog b/gcc/ChangeLog index c76440243ff..3b07544a85c 100644 --- a/gcc/ChangeLog +++ b/gcc/ChangeLog @@ -1,3 +1,8 @@ +2004-01-14 J. Brobecker <brobecker@gnat.com> + + * dwarf2out.c (is_ada_subrange_type): No longer check the TYPE_NAME. + (subrange_type_die): Add handle for nameless subrange types. + 2004-01-13 Kazu Hirata <kazu@cs.umass.edu> * config/h8300/h8300-protos.h: Replace do_movsi with diff --git a/gcc/dwarf2out.c b/gcc/dwarf2out.c index 54ed7bbc40c..5f75d296450 100644 --- a/gcc/dwarf2out.c +++ b/gcc/dwarf2out.c @@ -7820,7 +7820,6 @@ is_ada_subrange_type (tree type) if (is_ada () && TREE_CODE (type) == INTEGER_TYPE - && TYPE_NAME (type) != NULL_TREE && subtype != NULL_TREE) { if (TREE_CODE (subtype) == INTEGER_TYPE && TREE_UNSIGNED (subtype)) @@ -7849,11 +7848,15 @@ subrange_type_die (tree type, dw_die_ref context_die) else subtype_die = base_type_die (TREE_TYPE (type)); - if (TREE_CODE (name) == TYPE_DECL) - name = DECL_NAME (name); - subrange_die = new_die (DW_TAG_subrange_type, context_die, type); - add_name_attribute (subrange_die, IDENTIFIER_POINTER (name)); + + if (name != NULL) + { + if (TREE_CODE (name) == TYPE_DECL) + name = DECL_NAME (name); + add_name_attribute (subrange_die, IDENTIFIER_POINTER (name)); + } + if (TYPE_MIN_VALUE (type) != NULL) add_bound_info (subrange_die, DW_AT_lower_bound, TYPE_MIN_VALUE (type)); |
