FreeChainXenon/binutils-gdb
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Use common_val_print in f-valprint.c

Browse source 
This changes a couple spots in f-valprint.c to use common_val_print
rather than val_print.

gdb/ChangeLog
2020-03-13  Tom Tromey  <tom@tromey.com>

	* f-valprint.c (f77_print_array_1, f_val_print): Use
	common_val_print.
This commit is contained in:
Tom Tromey 2020-03-13 17:39:52 -06:00
parent 040f66bd2d
commit 72a45c9384
2 changed files with 8 additions and 8 deletions
Download patch file Download diff file Expand all files Collapse all files

5
gdb/ChangeLog
View file

@ -1,3 +1,8 @@
2020-03-13 Tom Tromey <tom@tromey.com>
* f-valprint.c (f77_print_array_1, f_val_print): Use
common_val_print.
2020-03-13 Tom Tromey <tom@tromey.com>
* riscv-tdep.c (riscv_print_one_register_info): Use

11
gdb/f-valprint.c
View file

@ -156,10 +156,7 @@ f77_print_array_1 (int nss, int ndimensions, struct type *type,
{
struct value *elt = value_subscript ((struct value *)val, i);
val_print (value_type (elt),
value_embedded_offset (elt),
value_address (elt), stream, recurse,
elt, options, current_language);
common_val_print (elt, stream, recurse, options, current_language);
if (i != upperbound)
fprintf_filtered (stream, ", ");
@ -346,10 +343,8 @@ f_val_print (struct type *type, int embedded_offset,
fputs_filtered (" = ", stream);
}
val_print (value_type (field),
value_embedded_offset (field),
value_address (field), stream, recurse + 1,
field, options, current_language);
common_val_print (field, stream, recurse + 1,
options, current_language);
++printed_field;
}