From: Per Bothner <bothner@gcc.gnu.org>
Date: Wed, 15 Jun 1994 22:21:27 +0000 (-0700)
Subject: (dbxout_range_type):  Handle an array range that is neither int nor subrange.
X-Git-Tag: misc/cutover-egcs-0~6449
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=d0310c5364a38ff0a3b4ddbf57aaa2239c7fb4ba;p=thirdparty%2Fgcc.git

(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 5418566033ed..b2995c1d8b91 100644
--- 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