From: Pierre Muller <muller@sourceware.org>
Date: Thu, 2 May 2002 11:32:24 +0000 (+0000)
Subject: 2002-05-02  Pierre Muller  <muller@ics.u-strasbg.fr>
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=6604db2ec02fda3c9b0ec8a117aef7a2fc152678;p=binutils-gdb.git

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.
---

diff --git a/gdb/ChangeLog b/gdb/ChangeLog
index 21d56920de9..d68c15f3943 100644
--- a/gdb/ChangeLog
+++ b/gdb/ChangeLog
@@ -1,3 +1,8 @@
+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
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