From 6604db2ec02fda3c9b0ec8a117aef7a2fc152678 Mon Sep 17 00:00:00 2001 From: Pierre Muller Date: Thu, 2 May 2002 11:32:24 +0000 Subject: [PATCH] 2002-05-02 Pierre Muller * p-typeprint.c (pascal_type_print_base): Add support for TYPE_CODE_STRING and TYPE_CODE_BITSTRING. --- gdb/ChangeLog | 5 +++++ gdb/p-typeprint.c | 8 ++++++++ 2 files changed, 13 insertions(+) diff --git a/gdb/ChangeLog b/gdb/ChangeLog index 21d56920de..d68c15f394 100644 --- a/gdb/ChangeLog +++ b/gdb/ChangeLog @@ -1,3 +1,8 @@ +2002-05-02 Pierre Muller + + * p-typeprint.c (pascal_type_print_base): Add support + for TYPE_CODE_STRING and TYPE_CODE_BITSTRING. + 2002-05-02 Pierre Muller * p-lang.c (pascal_create_fundamental_type): Use TYPE_CODE_CHAR diff --git a/gdb/p-typeprint.c b/gdb/p-typeprint.c index f7fc3899ea..e8de7884f1 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 -- 2.34.1