From 0906b7396c79ae9d420bcb3c5d69a82b428e9ba0 Mon Sep 17 00:00:00 2001 From: Pierre Muller Date: Thu, 2 May 2002 11:26:01 +0000 Subject: [PATCH] 2002-05-02 Pierre Muller * p-lang.c (pascal_create_fundamental_type): Use TYPE_CODE_CHAR for fondamental pascal 'char' type. --- gdb/ChangeLog | 5 +++++ gdb/p-lang.c | 2 +- 2 files changed, 6 insertions(+), 1 deletion(-) diff --git a/gdb/ChangeLog b/gdb/ChangeLog index 63512ac..21d5692 100644 --- a/gdb/ChangeLog +++ b/gdb/ChangeLog @@ -1,5 +1,10 @@ 2002-05-02 Pierre Muller + * p-lang.c (pascal_create_fundamental_type): Use TYPE_CODE_CHAR + for fondamental pascal 'char' type. + +2002-05-02 Pierre Muller + * p-lang.h (is_pascal_string_type): Declaration changed, new sixth argument of type char ** added. * p-lang.c (is_pascal_string_type): Implementation diff --git a/gdb/p-lang.c b/gdb/p-lang.c index 6d518ee..4796da5 100644 --- a/gdb/p-lang.c +++ b/gdb/p-lang.c @@ -293,7 +293,7 @@ pascal_create_fundamental_type (struct objfile *objfile, int typeid) 0, "void", objfile); break; case FT_CHAR: - type = init_type (TYPE_CODE_INT, + type = init_type (TYPE_CODE_CHAR, TARGET_CHAR_BIT / TARGET_CHAR_BIT, 0, "char", objfile); break; -- 2.7.4