* 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.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,
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;