diff options
| author | Per Bothner <per@bothner.com> | 1995-01-04 01:04:15 +0000 |
|---|---|---|
| committer | Per Bothner <per@bothner.com> | 1995-01-04 01:04:15 +0000 |
| commit | 3bcf418186358df5756e645b6e6034198b3ce2b6 (patch) | |
| tree | 19a113e10c593cce4efebeb158c1fdc3923db0f2 /gdb/ch-typeprint.c | |
| parent | cb527fd504568eca84e79d720df7ae8643075e72 (diff) | |
| download | fsf-binutils-gdb-3bcf418186358df5756e645b6e6034198b3ce2b6.zip fsf-binutils-gdb-3bcf418186358df5756e645b6e6034198b3ce2b6.tar.gz fsf-binutils-gdb-3bcf418186358df5756e645b6e6034198b3ce2b6.tar.bz2 | |
* ch-typeprint.c (chill_type_print_base): Get names of PTR and
BOOL from TYPE_NAME.
* ch-valprint.c (chill_print_type_scalar): New function, to handle
TYPE_CODE_RANGE better than print_type_scalar does.
(chill_val_print_array_elements): Use above new function.
Diffstat (limited to 'gdb/ch-typeprint.c')
| -rw-r--r-- | gdb/ch-typeprint.c | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/gdb/ch-typeprint.c b/gdb/ch-typeprint.c index 41a7d6f..88d994d 100644 --- a/gdb/ch-typeprint.c +++ b/gdb/ch-typeprint.c @@ -106,7 +106,8 @@ chill_type_print_base (type, stream, show, level) case TYPE_CODE_PTR: if (TYPE_CODE (TYPE_TARGET_TYPE (type)) == TYPE_CODE_VOID) { - fprintf_filtered (stream, "PTR"); + fprintf_filtered (stream, + TYPE_NAME (type) ? TYPE_NAME (type) : "PTR"); break; } fprintf_filtered (stream, "REF "); @@ -118,7 +119,8 @@ chill_type_print_base (type, stream, show, level) anyone ever fixes the compiler to give us the real names in the presence of the chill equivalent of typedef (assuming there is one). */ - fprintf_filtered (stream, "BOOL"); + fprintf_filtered (stream, + TYPE_NAME (type) ? TYPE_NAME (type) : "BOOL"); break; case TYPE_CODE_ARRAY: |