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

1 files changed, 10 insertions, 0 deletions

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;