* ch-valprint.c (chill_val_print): On TYPE_CODE_STRING, don't

print address for non-'s'-formats.
	* ch-typeprint.c, ch-valprint.c:  Use chill_varying_type instead
	of chill_is_varying_struct.
This commit is contained in:
Per Bothner 1995-02-02 03:32:52 +00:00
parent e3be225eb4
commit 6073b8deba
3 changed files with 9 additions and 7 deletions

View File

@ -1,3 +1,10 @@
Wed Feb 1 15:44:11 1995 Per Bothner <bothner@kalessin.cygnus.com>
* ch-valprint.c (chill_val_print): On TYPE_CODE_STRING, don't
print address for non-'s'-formats.
* ch-typeprint.c, ch-valprint.c: Use chill_varying_type instead
of chill_is_varying_struct.
Wed Feb 1 13:27:33 1995 Stan Shebs <shebs@andros.cygnus.com>
gcc -Wall lint.

View File

@ -175,7 +175,7 @@ chill_type_print_base (type, stream, show, level)
break;
case TYPE_CODE_STRUCT:
if (chill_is_varying_struct (type))
if (chill_varying_type (type))
{
chill_type_print_base (TYPE_FIELD_TYPE (type, 1),
stream, show, level);

View File

@ -305,11 +305,6 @@ chill_val_print (type, valaddr, address, stream, format, deref_ref, recurse,
break;
case TYPE_CODE_STRING:
if (format && format != 's')
{
print_scalar_formatted (valaddr, type, format, 0, stream);
break;
}
i = TYPE_LENGTH (type);
LA_PRINT_STRING (stream, valaddr, i, 0);
/* Return number of characters printed, plus one for the terminating
@ -371,7 +366,7 @@ chill_val_print (type, valaddr, address, stream, format, deref_ref, recurse,
break;
case TYPE_CODE_STRUCT:
if (chill_is_varying_struct (type))
if (chill_varying_type (type))
{
struct type *inner = TYPE_FIELD_TYPE (type, 1);
long length = unpack_long (TYPE_FIELD_TYPE (type, 0), valaddr);