From 230a3ab0d4756c07d20d9d4781c6e796f1738631 Mon Sep 17 00:00:00 2001 From: Jim Kingdon Date: Mon, 26 Jul 1993 20:04:02 +0000 Subject: [PATCH] * stabsread.c (rs6000_builtin_type): Make logical types be TYPE_CODE_BOOL. --- gdb/ChangeLog | 3 ++- gdb/stabsread.c | 6 +++--- 2 files changed, 5 insertions(+), 4 deletions(-) diff --git a/gdb/ChangeLog b/gdb/ChangeLog index be08287626b..0199bc6d1e2 100644 --- 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 0619ad166ac..c6864cdcbf6 100644 --- 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: -- 2.30.2