From 72a45c938438f33bf8e7de6a5f068ba31c8c1e36 Mon Sep 17 00:00:00 2001 From: Tom Tromey Date: Fri, 13 Mar 2020 17:39:52 -0600 Subject: [PATCH] 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(-) diff --git a/gdb/ChangeLog b/gdb/ChangeLog index 21444545b44..6cda7481b8c 100644 --- a/gdb/ChangeLog +++ b/gdb/ChangeLog @@ -1,3 +1,8 @@ +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 diff --git a/gdb/f-valprint.c b/gdb/f-valprint.c index 0393ddfa8ab..bbc09cd5606 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; } -- 2.30.2