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 | |
| 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.
| -rw-r--r-- | gdb/ChangeLog | 5 | ||||
| -rw-r--r-- | gdb/p-lang.c | 2 |
2 files changed, 6 insertions, 1 deletions
diff --git a/gdb/ChangeLog b/gdb/ChangeLog index 63512ac..21d5692 100644 --- 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 --- 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; |