[PATCH] Support TYPE_CODE_(BIT)STRING in pascal_type_print_base

[Pierre Muller <muller@cerbere.u-strasbg.fr>]

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