aboutsummaryrefslogtreecommitdiff
path: root/gdb
diff options
context:
space:
mode:
Diffstat (limited to 'gdb')
-rw-r--r--gdb/ChangeLog5
-rw-r--r--gdb/p-typeprint.c8
2 files changed, 13 insertions, 0 deletions
diff --git a/gdb/ChangeLog b/gdb/ChangeLog
index 21d5692..d68c15f 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 f7fc389..e8de788 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