From 72a45c938438f33bf8e7de6a5f068ba31c8c1e36 Mon Sep 17 00:00:00 2001 From: Tom Tromey Date: Fri, 13 Mar 2020 17:39:52 -0600 Subject: Use common_val_print in f-valprint.c 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 * f-valprint.c (f77_print_array_1, f_val_print): Use common_val_print. --- gdb/ChangeLog | 5 +++++ gdb/f-valprint.c | 11 +++-------- 2 files changed, 8 insertions(+), 8 deletions(-) (limited to 'gdb') diff --git a/gdb/ChangeLog b/gdb/ChangeLog index 2144454..6cda748 100644 --- a/gdb/ChangeLog +++ b/gdb/ChangeLog @@ -1,5 +1,10 @@ 2020-03-13 Tom Tromey + * f-valprint.c (f77_print_array_1, f_val_print): Use + common_val_print. + +2020-03-13 Tom Tromey + * riscv-tdep.c (riscv_print_one_register_info): Use common_val_print. diff --git a/gdb/f-valprint.c b/gdb/f-valprint.c index 0393ddf..bbc09cd 100644 --- a/gdb/f-valprint.c +++ b/gdb/f-valprint.c @@ -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; } -- cgit v1.1