diff options
Diffstat (limited to 'gdb')
-rw-r--r-- | gdb/ChangeLog | 12 | ||||
-rw-r--r-- | gdb/ch-exp.y | 2 | ||||
-rw-r--r-- | gdb/ch-valprint.c | 19 |
3 files changed, 15 insertions, 18 deletions
diff --git a/gdb/ChangeLog b/gdb/ChangeLog index 8cf862f..69512a6 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 ce2bbfe..141463d 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 8ffa1af..8c80bc4 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 |