[07/55] Use common_val_print in f-valprint.c
Commit Message
This changes a couple spots in f-valprint.c to use common_val_print
rather than val_print.
gdb/ChangeLog
2019-12-08 Tom Tromey <tom@tromey.com>
* f-valprint.c (f77_print_array_1, f_val_print): Use
common_val_print.
Change-Id: Ie5f834695005e32f01706abadabfdb45e70be076
---
gdb/ChangeLog | 5 +++++
gdb/f-valprint.c | 11 +++--------
2 files changed, 8 insertions(+), 8 deletions(-)
@@ -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, ", ");
@@ -345,10 +342,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;
}