[PATCH] Support TYPE_CODE_(BIT)STRING in pascal_type_print_base

[PATCH] Support TYPE_CODE_(BIT)STRING in pascal_type_print_base

[Pierre Muller]

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

Re: [PATCH] Support TYPE_CODE_(BIT)STRING in pascal_type_print_base

[Michael Snyder]

Pierre Muller wrote:
> 
> This patch is here mainly to avoid getting error
> reports for GPC string types.

This seems completely reasonable.  Approved.

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