+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
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))
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));