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.
This commit is contained in:
Pierre Muller 2002-05-02 11:26:01 +00:00
parent e2625b330b
commit 0906b7396c
2 changed files with 6 additions and 1 deletions

View File

@ -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,

View File

@ -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;