From ec16f7015b91a7324011b41f6a13dfab0fd5d21a Mon Sep 17 00:00:00 2001 From: Fred Fish Date: Tue, 19 Jan 1993 23:00:19 +0000 Subject: * c-exp.y (exp): Add production to support direct creation of array constants using the obvious syntax. * c-valprint.c (c_val_print): Set printed string length. * dwarfread.c (read_tag_string_type): New prototype and function that handles TAG_string_type DIEs. * dwarfread.c (process_dies): Add case for TAG_string_type that calls new read_tag_string_type function. * expprint.c (print_subexp): Add support for OP_ARRAY. * gdbtypes.c (create_range_type, create_array_type): Inherit objfile from the index type. **** start-sanitize-chill **** * ch-typeprint.c (chill_print_type): Add case for TYPE_CODE_STRING. * ch-valprint.c (chill_val_print): Fix case for TYPE_CODE_STRING. **** end-sanitize-chill **** --- gdb/ch-typeprint.c | 10 ++++++++++ 1 file changed, 10 insertions(+) (limited to 'gdb/ch-typeprint.c') diff --git a/gdb/ch-typeprint.c b/gdb/ch-typeprint.c index cd3dd367d4a..f4119ca149a 100644 --- a/gdb/ch-typeprint.c +++ b/gdb/ch-typeprint.c @@ -70,6 +70,16 @@ chill_print_type (type, varstring, stream, show, level) fputs_filtered (") ", stream); chill_print_type (TYPE_TARGET_TYPE (type), "", stream, show, level); break; + + case TYPE_CODE_STRING: + range_type = TYPE_FIELD_TYPE (type, 0); + index_type = TYPE_TARGET_TYPE (range_type); + high_bound = TYPE_FIELD_BITPOS (range_type, 1); + fputs_filtered ("char (", stream); + print_type_scalar (index_type, high_bound + 1, stream); + fputs_filtered (") ", stream); + break; + default: chill_print_type_base (type, stream, show, level); break; -- cgit v1.2.1