espressif/binutils-gdb
1
0
Fork 0
mirror of https://github.com/espressif/binutils-gdb.git synced 2025-09-10 23:57:03 +08:00
Code Issues Packages Projects Releases Wiki Activity

* valprint.c (val_print): Reorganize comment and add note

Browse Source 
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 ****
This commit is contained in:
Fred Fish
1992-12-22 06:32:19 +00:00
parent 09f3dc6e06
commit a9b37611e7
3 changed files with 15 additions and 18 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
gdb/ChangeLog
View File

@ -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) Mon Dec 21 18:02:35 1992 Stu Grossman (grossman at cygnus.com)
* tm-hppah.h: #define NEED_TEXT_START_END for target memory * tm-hppah.h: #define NEED_TEXT_START_END for target memory

2
gdb/ch-exp.y
View File

@ -474,7 +474,7 @@ value_array_slice: array_primitive_value '(' lower_element ':' upper_element ')'
{ {
$$ = 0; /* FIXME */ $$ = 0; /* FIXME */
} }
| array_primitive_value '(' first_element UP slice_size '(' | array_primitive_value '(' first_element UP slice_size ')'
{ {
$$ = 0; /* FIXME */ $$ = 0; /* FIXME */
} }

19
gdb/ch-valprint.c
View File

@ -51,9 +51,6 @@ chill_val_print (type, valaddr, address, stream, format, deref_ref, recurse,
int recurse; int recurse;
enum val_prettyprint pretty; enum val_prettyprint pretty;
{ {
unsigned len;
struct type *elttype;
unsigned eltlen;
LONGEST val; LONGEST val;
switch (TYPE_CODE (type)) switch (TYPE_CODE (type))
@ -61,25 +58,13 @@ chill_val_print (type, valaddr, address, stream, format, deref_ref, recurse,
case TYPE_CODE_ARRAY: case TYPE_CODE_ARRAY:
if (TYPE_LENGTH (type) > 0 && TYPE_LENGTH (TYPE_TARGET_TYPE (type)) > 0) 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) if (prettyprint_arrays)
{ {
print_spaces_filtered (2 + 2 * recurse, stream); print_spaces_filtered (2 + 2 * recurse, stream);
} }
fprintf_filtered (stream, "["); fprintf_filtered (stream, "[");
/* For an array of chars, print with string syntax. */ val_print_array_elements (type, valaddr, address, stream, format,
if (eltlen == 1 && TYPE_CODE (elttype) == TYPE_CODE_INT deref_ref, recurse, pretty, 0);
&& (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);
}
fprintf_filtered (stream, "]"); fprintf_filtered (stream, "]");
} }
else else