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

From-SVN: r7494

diff --git a/gcc/dbxout.c b/gcc/dbxout.c
index 5418566..b2995c1 100644 (file)
--- a/gcc/dbxout.c
+++ b/gcc/dbxout.c
@@ -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