This is the mail archive of the
gdb-patches@sources.redhat.com
mailing list for the GDB project.
[PATCH] Support TYPE_CODE_(BIT)STRING in pascal_type_print_base
- From: Pierre Muller <muller at cerbere dot u-strasbg dot fr>
- To: gdb-patches at sources dot redhat dot com
- Date: Thu, 02 May 2002 13:30:44 +0200
- Subject: [PATCH] Support TYPE_CODE_(BIT)STRING in pascal_type_print_base
This patch is here mainly to avoid getting error
reports for GPC string types.
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.
Index: p-typeprint.c
===================================================================
RCS file: /cvs/src/src/gdb/p-typeprint.c,v
retrieving revision 1.8
diff -u -p -r1.8 p-typeprint.c
--- p-typeprint.c 20 Jan 2002 19:42:04 -0000 1.8
+++ p-typeprint.c 2 May 2002 11:28:23 -0000
@@ -788,6 +788,14 @@ pascal_type_print_base (struct type *typ
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
Pierre Muller
Institut Charles Sadron
6,rue Boussingault
F 67083 STRASBOURG CEDEX (France)
mailto:muller@ics.u-strasbg.fr
Phone : (33)-3-88-41-40-07 Fax : (33)-3-88-41-40-99