(dbxout_range_type): Handle an array range that is neither int nor subrange.

From-SVN: r7494
This commit is contained in:
Per Bothner 1994-06-15 15:21:27 -07:00
parent f0e01782d7
commit d0310c5364
1 changed files with 2 additions and 0 deletions

View File

@ -877,6 +877,8 @@ dbxout_range_type (type)
fprintf (asmfile, "r");
if (TREE_TYPE (type))
dbxout_type (TREE_TYPE (type), 0, 0);
else if (TREE_CODE (type) != INTEGER_TYPE)
dbxout_type (type, 0, 0); /* E.g. Pascal's ARRAY [BOOLEAN] of INTEGER */
else
{
/* This used to say `r1' and we used to take care