* 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 8cf862f19a1e3c4055a300cb38ce231afba5d1f1..69512a61b43e7812ab642874c30c798aea3e1dce 100644 (file)
--- 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 ce2bbfef88780e9366b2c0df37f5f777448a3bb5..141463d7b4aa9c17131efc06b6e5e043f2159a07 100644 (file)
--- 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 8ffa1af9a890120ed3c8d6a1a2830a1614ed7851..8c80bc48612aeb97c893101e48851821a28404a5 100644 (file)
--- 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