diff options
author | Pierre Muller <muller@ics.u-strasbg.fr> | 2002-05-02 11:32:24 +0000 |
---|---|---|
committer | Pierre Muller <muller@ics.u-strasbg.fr> | 2002-05-02 11:32:24 +0000 |
commit | d3de1857945d2902f7e0329b7b994122d3ecefbe (patch) | |
tree | df23c04a6573ead2aec9802cbbf792a4face2146 | |
parent | 44b3fc4e7bc3bde9645db6c0e3fd51648d6111ed (diff) | |
download | gdb-d3de1857945d2902f7e0329b7b994122d3ecefbe.tar.gz |
2002-05-02 Pierre Muller <muller@ics.u-strasbg.fr>
* p-typeprint.c (pascal_type_print_base): Add support
for TYPE_CODE_STRING and TYPE_CODE_BITSTRING.
-rw-r--r-- | gdb/ChangeLog | 5 | ||||
-rw-r--r-- | gdb/p-typeprint.c | 8 |
2 files changed, 13 insertions, 0 deletions
diff --git a/gdb/ChangeLog b/gdb/ChangeLog index 21d56920de9..d68c15f3943 100644 --- a/gdb/ChangeLog +++ b/gdb/ChangeLog @@ -1,5 +1,10 @@ 2002-05-02 Pierre Muller <muller@ics.u-strasbg.fr> + * p-typeprint.c (pascal_type_print_base): Add support + for TYPE_CODE_STRING and TYPE_CODE_BITSTRING. + +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. diff --git a/gdb/p-typeprint.c b/gdb/p-typeprint.c index f7fc3899ead..e8de7884f1d 100644 --- a/gdb/p-typeprint.c +++ b/gdb/p-typeprint.c @@ -788,6 +788,14 @@ pascal_type_print_base (struct type *type, struct ui_file *stream, int show, show - 1, level); break; + case TYPE_CODE_BITSTRING: + fputs_filtered ("BitString", stream); + break; + + case TYPE_CODE_STRING: + fputs_filtered ("String", stream); + break; + default: /* Handle types not explicitly handled by the other cases, such as fundamental types. For these, just print whatever |