diff options
| author | Fred Fish <fnf@specifix.com> | 1992-12-22 06:32:19 +0000 |
|---|---|---|
| committer | Fred Fish <fnf@specifix.com> | 1992-12-22 06:32:19 +0000 |
| commit | a9b37611e7f9dd8948c486b6ccecf148c27234a1 (patch) | |
| tree | 050bab54dc08b8f56340c5f086e8f707eef27987 /gdb | |
| parent | 09f3dc6e0685e87c0713a3ed6781ba970b0bf1be (diff) | |
| download | gdb-a9b37611e7f9dd8948c486b6ccecf148c27234a1.zip gdb-a9b37611e7f9dd8948c486b6ccecf148c27234a1.tar.gz gdb-a9b37611e7f9dd8948c486b6ccecf148c27234a1.tar.bz2 | |
* 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 ****
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 |