* stabsread.c (read_range_type): Properly construct complex

type nodes.

diff --git a/gdb/ChangeLog b/gdb/ChangeLog
index af16bc402568d33e4d14988cc4fd36af2a416c34..a1838ad3513d844c021524f7fb4bcab064a98644 100644 (file)
--- a/gdb/ChangeLog
+++ b/gdb/ChangeLog
@@ -1,3 +1,8 @@
+2000-11-10  Jim Blandy  <jimb@redhat.com>
+
+       * stabsread.c (read_range_type): Properly construct complex
+       type nodes.
+
 2000-11-10  Fernando Nasser  <fnasser@totem.toronto.redhat.com>
 
        * symtab.c (decode_line_1, total_number_of_methods, find_methods,

diff --git a/gdb/stabsread.c b/gdb/stabsread.c
index fb1a1843db29e4e934e2e3d86134b49e3a40cb4a..730df9d80b8dc3608be89496ddd8260042b58d36 100644 (file)
--- a/gdb/stabsread.c
+++ b/gdb/stabsread.c
@@ -4593,14 +4593,18 @@ read_range_type (char **pp, int typenums[2], struct objfile *objfile)
 
   if (n3 == 0 && n2 > 0)
     {
+      struct type *float_type
+       = init_type (TYPE_CODE_FLT, n2, 0, NULL, objfile);
+
       if (self_subrange)
        {
-         return init_type (TYPE_CODE_COMPLEX, 2 * n2, 0, NULL, objfile);
+         struct type *complex_type = 
+           init_type (TYPE_CODE_COMPLEX, 2 * n2, 0, NULL, objfile);
+         TYPE_TARGET_TYPE (complex_type) = float_type;
+         return complex_type;
        }
       else
-       {
-         return init_type (TYPE_CODE_FLT, n2, 0, NULL, objfile);
-       }
+       return float_type;
     }
 
   /* If the upper bound is -1, it must really be an unsigned int.  */