* stabsread.c (rs6000_builtin_type): Recognize types -31 to -34.

diff --git a/gdb/ChangeLog b/gdb/ChangeLog
index bb490a3..9fc97f1 100644 (file)
--- a/gdb/ChangeLog
+++ b/gdb/ChangeLog
@@ -1,3 +1,7 @@
+Thu Mar 16 12:14:41 1995  Jim Kingdon  (kingdon@lioth.cygnus.com)
+
+       * stabsread.c (rs6000_builtin_type): Recognize types -31 to -34.
+
 Wed Mar 15 15:09:29 1995  Stu Grossman  (grossman@cygnus.com)
 
        * findvar.c (read_register_bytes write_register_bytes):  Make

diff --git a/gdb/stabsread.c b/gdb/stabsread.c
index be281bf..66488f8 100644 (file)
--- a/gdb/stabsread.c
+++ b/gdb/stabsread.c
@@ -1774,7 +1774,7 @@ rs6000_builtin_type (typenum)
      int typenum;
 {
   /* We recognize types numbered from -NUMBER_RECOGNIZED to -1.  */
-#define NUMBER_RECOGNIZED 30
+#define NUMBER_RECOGNIZED 34
   /* This includes an empty slot for type number -0.  */
   static struct type *negative_types[NUMBER_RECOGNIZED + 1];
   struct type *rettype = NULL;
@@ -1908,6 +1908,20 @@ rs6000_builtin_type (typenum)
     case 30:
       rettype = init_type (TYPE_CODE_CHAR, 2, 0, "wchar", NULL);
       break;
+    case 31:
+      rettype = init_type (TYPE_CODE_INT, 8, 0, "long long", NULL);
+      break;
+    case 32:
+      rettype = init_type (TYPE_CODE_INT, 8, TYPE_FLAG_UNSIGNED,
+                          "unsigned long long", NULL);
+      break;
+    case 33:
+      rettype = init_type (TYPE_CODE_INT, 8, TYPE_FLAG_UNSIGNED,
+                          "logical*8", NULL);
+      break;
+    case 34:
+      rettype = init_type (TYPE_CODE_INT, 8, 0, "integer*8", NULL);
+      break;
     }
   negative_types[-typenum] = rettype;
   return rettype;