diff options
| author | Pierre Muller <muller@sourceware.org> | 2002-05-02 11:26:01 +0000 |
|---|---|---|
| committer | Pierre Muller <muller@sourceware.org> | 2002-05-02 11:26:01 +0000 |
| commit | 0906b7396c79ae9d420bcb3c5d69a82b428e9ba0 (patch) | |
| tree | 93d5b2d1bfd1f6ecbf598174e74db3b9dc4087a6 /gdb/p-lang.c | |
| parent | e2625b330b2648028824378985a5165ca92bd245 (diff) | |
| download | gdb-0906b7396c79ae9d420bcb3c5d69a82b428e9ba0.zip gdb-0906b7396c79ae9d420bcb3c5d69a82b428e9ba0.tar.gz gdb-0906b7396c79ae9d420bcb3c5d69a82b428e9ba0.tar.bz2 | |
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 6d518ee..4796da5 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; |