* stabsread.c (read_range_type): If !self-subrange and language

	is Chill, assume a true range.  If a true_range is a sub_subrange,
	use builtin_type_int for index_type.
This is for PR chill/8894.

diff --git a/gdb/ChangeLog b/gdb/ChangeLog
index a697e91d21d5cfb32cb15b1b4bb57b733629818f..cead0361369ebfcd5ce8c2ca7ad663380ce819bc 100644 (file)
--- a/gdb/ChangeLog
+++ b/gdb/ChangeLog
@@ -1,3 +1,14 @@
+Tue Feb  6 21:37:03 1996  Per Bothner  <bothner@kalessin.cygnus.com>
+
+       * stabsread.c (read_range_type):  If !self-subrange and language
+       is Chill, assume a true range.  If a true_range is a sub_subrange,
+       use builtin_type_int for index_type.
+
+Tue Feb  6 18:38:51 1996  J.T. Conklin  <jtc@slave.cygnus.com>
+
+       * nindy-share/nindy.c (say): Use stdarg.h macros when compiling
+        with an ANSI compiler.
+
 Mon Feb  5 18:24:28 1996  Steve Chamberlain  <sac@slash.cygnus.com>
 
        From Michael_Snyder@NeXT.COM (Michael Snyder):

diff --git a/gdb/stabsread.c b/gdb/stabsread.c
index 988c75cb178999639394259b38cc04b9e944f4db..541e886474b83bda4cb3ec1ef45a79da9ee47b5e 100644 (file)
--- a/gdb/stabsread.c
+++ b/gdb/stabsread.c
@@ -3512,7 +3512,7 @@ read_range_type (pp, typenums, objfile)
     return init_type (TYPE_CODE_INT, 1, 0, NULL, objfile);
 
   else if (current_symbol && SYMBOL_LANGUAGE (current_symbol) == language_chill
-      && SYMBOL_LINE (current_symbol) > 0)
+          && !self_subrange)
     goto handle_true_range;
 
   /* We used to do this only for subrange of self or subrange of int.  */
@@ -3552,13 +3552,10 @@ read_range_type (pp, typenums, objfile)
      return a real pointer.  */
  handle_true_range:
 
-  /* At this point I don't have the faintest idea how to deal with
-     a self_subrange type; I'm going to assume that this is used
-     as an idiom, and that all of them are special cases.  So . . .  */
   if (self_subrange)
-    return error_type (pp, objfile);
-
-  index_type = *dbx_lookup_type (rangenums);
+    index_type = builtin_type_int;
+  else
+    index_type = *dbx_lookup_type (rangenums);
   if (index_type == NULL)
     {
       /* Does this actually ever happen?  Is that why we are worrying