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
This commit is contained in:
parent
8dd8b815f4
commit
b98d154e3e
|
@ -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
|
||||
|
|
|
@ -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));
|
||||
|
|
Loading…
Reference in New Issue