(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 5418566033ed4509650315b603f33ccafe0a5d0b..b2995c1d8b91b08f80f80e05ff5538a5467f6fbb 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