2002-05-02 Pierre Muller <muller@ics.u-strasbg.fr>

	* p-lang.c (pascal_create_fundamental_type): Use TYPE_CODE_CHAR
	for fondamental pascal 'char' type.

diff --git a/gdb/ChangeLog b/gdb/ChangeLog
index 63512ac9748484d9d0827d6d960fbeb4021174f5..21d56920de97097f9bbd185d410b32d6b5aee3aa 100644 (file)
--- a/gdb/ChangeLog
+++ b/gdb/ChangeLog
@@ -1,3 +1,8 @@
+2002-05-02  Pierre Muller  <muller@ics.u-strasbg.fr>
+
+       * p-lang.c (pascal_create_fundamental_type): Use TYPE_CODE_CHAR
+       for fondamental pascal 'char' type.
+
 2002-05-02  Pierre Muller  <muller@ics.u-strasbg.fr>
 
        * p-lang.h (is_pascal_string_type): Declaration changed,

diff --git a/gdb/p-lang.c b/gdb/p-lang.c
index 6d518ee951ff89e2d4f49a170de1bd969d1577cc..4796da5f17b67c851707dd49901b651f7bc3bc7b 100644 (file)
--- 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;