* stabsread.c (rs6000_builtin_type): Make logical types be

	TYPE_CODE_BOOL.

diff --git a/gdb/ChangeLog b/gdb/ChangeLog
index be08287626b48fbb949ddd13685a0b9e45a34e10..0199bc6d1e2132bdd84287ef25aac16d0842f555 100644 (file)
--- a/gdb/ChangeLog
+++ b/gdb/ChangeLog
@@ -2,7 +2,8 @@ Mon Jul 26 13:17:36 1993  Jim Kingdon  (kingdon@lioth.cygnus.com)
 
        * hppa-tdep.c (pc_in_linker_stub): Return 0 if can't read memory.
 
-       * stabsread.c (rs6000_builtin_type): Make `logical' be TYPE_CODE_BOOL.
+       * stabsread.c (rs6000_builtin_type): Make logical types be
+       TYPE_CODE_BOOL.
 
 Sun Jul 25 23:41:48 1993  Jim Kingdon  (kingdon@lioth.cygnus.com)
 

diff --git a/gdb/stabsread.c b/gdb/stabsread.c
index 0619ad166acb3055a8d5c6e4aa1d83ef6cbbe6a9..c6864cdcbf66b61d066a203f2681bef718be00e0 100644 (file)
--- a/gdb/stabsread.c
+++ b/gdb/stabsread.c
@@ -1674,15 +1674,15 @@ rs6000_builtin_type (typenum)
                           "character", NULL);
       break;
     case 21:
-      rettype = init_type (TYPE_CODE_INT, 1, TYPE_FLAG_UNSIGNED,
+      rettype = init_type (TYPE_CODE_BOOL, 1, TYPE_FLAG_UNSIGNED,
                           "logical*1", NULL);
       break;
     case 22:
-      rettype = init_type (TYPE_CODE_INT, 2, TYPE_FLAG_UNSIGNED,
+      rettype = init_type (TYPE_CODE_BOOL, 2, TYPE_FLAG_UNSIGNED,
                           "logical*2", NULL);
       break;
     case 23:
-      rettype = init_type (TYPE_CODE_INT, 4, TYPE_FLAG_UNSIGNED,
+      rettype = init_type (TYPE_CODE_BOOL, 4, TYPE_FLAG_UNSIGNED,
                           "logical*4", NULL);
       break;
     case 24: