From b98d154e3eddc1812f391f11ca060eda6f17201d Mon Sep 17 00:00:00 2001 From: "J. Brobecker" Date: Wed, 14 Jan 2004 02:52:40 +0000 Subject: [PATCH] dwarf2out.c (is_ada_subrange_type): No longer check the TYPE_NAME. * dwarf2out.c (is_ada_subrange_type): No longer check the TYPE_NAME. (subrange_type_die): Add handle for nameless subrange types. From-SVN: r75838 --- gcc/ChangeLog | 5 +++++ gcc/dwarf2out.c | 13 ++++++++----- 2 files changed, 13 insertions(+), 5 deletions(-) diff --git a/gcc/ChangeLog b/gcc/ChangeLog index c76440243fff..3b07544a85c1 100644 --- a/gcc/ChangeLog +++ b/gcc/ChangeLog @@ -1,3 +1,8 @@ +2004-01-14 J. Brobecker + + * 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 * config/h8300/h8300-protos.h: Replace do_movsi with diff --git a/gcc/dwarf2out.c b/gcc/dwarf2out.c index 54ed7bbc40ce..5f75d296450c 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)); -- 2.47.3