diff options
| author |   Pierre Muller <muller@sourceware.org> | 2002-05-02 11:32:24 +0000 |
|---|---|---|
| committer | Pierre Muller <muller@sourceware.org> | 2002-05-02 11:32:24 +0000 |
| commit | 6604db2ec02fda3c9b0ec8a117aef7a2fc152678 (patch) | |
| tree | 6aebce80c4d535e3d71685783b4210e8887153eb /gdb/p-typeprint.c | |
| parent | 2002-05-02 Pierre Muller <muller@ics.u-strasbg.fr> (diff) | |
| download | binutils-gdb-6604db2ec02fda3c9b0ec8a117aef7a2fc152678.tar.gz binutils-gdb-6604db2ec02fda3c9b0ec8a117aef7a2fc152678.tar.bz2 binutils-gdb-6604db2ec02fda3c9b0ec8a117aef7a2fc152678.zip | |
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.
Diffstat (limited to 'gdb/p-typeprint.c')
| -rw-r--r-- | gdb/p-typeprint.c | 8 |
1 files changed, 8 insertions, 0 deletions
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 |