diff options
| author | Pierre Muller <muller@ics.u-strasbg.fr> | 2002-05-02 11:26:01 +0000 |
|---|---|---|
| committer | Pierre Muller <muller@ics.u-strasbg.fr> | 2002-05-02 11:26:01 +0000 |
| commit | 44b3fc4e7bc3bde9645db6c0e3fd51648d6111ed (patch) | |
| tree | c843adba57129f4a20eeda19c5c188581acb7471 /gdb/p-lang.c | |
| parent | daf9bf71d7d462ec16817d46e287416612acb72e (diff) | |
| download | gdb-44b3fc4e7bc3bde9645db6c0e3fd51648d6111ed.tar.gz | |
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.
Diffstat (limited to 'gdb/p-lang.c')
| -rw-r--r-- | gdb/p-lang.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/gdb/p-lang.c b/gdb/p-lang.c index 6d518ee951f..4796da5f17b 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; |