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 63512ac..21d5692 100644 (file)
--- a/gdb/ChangeLog
+++ b/gdb/ChangeLog
@@ -1,5 +1,10 @@
 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,
        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 (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;