From: Fred Fish <fnf@specifix.com>
Date: Tue, 22 Dec 1992 06:32:19 +0000 (+0000)
Subject: 	* valprint.c (val_print):  Reorganize comment and add note
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=a9b37611e7f9dd8948c486b6ccecf148c27234a1;p=binutils-gdb.git

	* valprint.c (val_print):  Reorganize comment and add note
	about dependency on target byte ordering.
	**** start-sanitize-chill ****
	* ch-exp.y (value_array_slice):  Fix typo.
	* ch-valprint.c (chill_val_print): Remove C'ism that arrays of
	byte sized ints are assumed to be char strings and printed with
	string syntax.  In chill, arrays of chars and arrays of
	bytes/ubytes are distinquishable, and printed appropriately.
	**** end-sanitize-chill ****
---

diff --git a/gdb/ChangeLog b/gdb/ChangeLog
index 8cf862f19a1..69512a61b43 100644
--- a/gdb/ChangeLog
+++ b/gdb/ChangeLog
@@ -1,3 +1,15 @@
+Mon Dec 21 22:24:33 1992  Fred Fish  (fnf@cygnus.com)
+
+	* valprint.c (val_print):  Reorganize comment and add note
+	about dependency on target byte ordering.
+	**** start-sanitize-chill ****
+	* ch-exp.y (value_array_slice):  Fix typo.
+	* ch-valprint.c (chill_val_print): Remove C'ism that arrays of
+	byte sized ints are assumed to be char strings and printed with
+	string syntax.  In chill, arrays of chars and arrays of
+	bytes/ubytes are distinquishable, and printed appropriately.
+	**** end-sanitize-chill ****
+
 Mon Dec 21 18:02:35 1992  Stu Grossman  (grossman at cygnus.com)
 
 	* tm-hppah.h:  #define NEED_TEXT_START_END for target memory
diff --git a/gdb/ch-exp.y b/gdb/ch-exp.y
index ce2bbfef887..141463d7b4a 100644
--- a/gdb/ch-exp.y
+++ b/gdb/ch-exp.y
@@ -474,7 +474,7 @@ value_array_slice:	array_primitive_value '(' lower_element ':' upper_element ')'
 			{
 			  $$ = 0;	/* FIXME */
 			}
-		|	array_primitive_value '(' first_element UP slice_size '('
+		|	array_primitive_value '(' first_element UP slice_size ')'
 			{
 			  $$ = 0;	/* FIXME */
 			}
diff --git a/gdb/ch-valprint.c b/gdb/ch-valprint.c
index 8ffa1af9a89..8c80bc48612 100644
--- a/gdb/ch-valprint.c
+++ b/gdb/ch-valprint.c
@@ -51,9 +51,6 @@ chill_val_print (type, valaddr, address, stream, format, deref_ref, recurse,
      int recurse;
      enum val_prettyprint pretty;
 {
-  unsigned len;
-  struct type *elttype;
-  unsigned eltlen;
   LONGEST val;
 
   switch (TYPE_CODE (type))
@@ -61,25 +58,13 @@ chill_val_print (type, valaddr, address, stream, format, deref_ref, recurse,
     case TYPE_CODE_ARRAY:
       if (TYPE_LENGTH (type) > 0 && TYPE_LENGTH (TYPE_TARGET_TYPE (type)) > 0)
 	{
-	  elttype = TYPE_TARGET_TYPE (type);
-	  eltlen = TYPE_LENGTH (elttype);
-	  len = TYPE_LENGTH (type) / eltlen;
 	  if (prettyprint_arrays)
 	    {
 	      print_spaces_filtered (2 + 2 * recurse, stream);
 	    }
 	  fprintf_filtered (stream, "[");
-	  /* For an array of chars, print with string syntax.  */
-	  if (eltlen == 1 && TYPE_CODE (elttype) == TYPE_CODE_INT
-	      && (format == 0 || format == 's') )
-	    {
-	      LA_PRINT_STRING (stream, valaddr, len, 0);
-	    }
-	  else
-	    {
-	      val_print_array_elements (type, valaddr, address, stream,
-					format, deref_ref, recurse, pretty, 0);
-	    }
+	  val_print_array_elements (type, valaddr, address, stream, format,
+				    deref_ref, recurse, pretty, 0);
 	  fprintf_filtered (stream, "]");
 	}
       else