From 24051bbe843abcdcc108542da195e009c3f19910 Mon Sep 17 00:00:00 2001 From: Tom Tromey Date: Fri, 13 Mar 2020 17:39:52 -0600 Subject: Introduce f_value_print_innner This introduces f_value_print_innner. gdb/ChangeLog 2020-03-13 Tom Tromey * f-valprint.c (f_value_print_innner): New function. * f-lang.h (f_value_print_innner): Declare. * f-lang.c (f_language_defn): Use f_value_print_innner. --- gdb/f-valprint.c | 10 ++++++++++ 1 file changed, 10 insertions(+) (limited to 'gdb/f-valprint.c') diff --git a/gdb/f-valprint.c b/gdb/f-valprint.c index bbc09cd..10593ee 100644 --- a/gdb/f-valprint.c +++ b/gdb/f-valprint.c @@ -394,6 +394,16 @@ f_val_print (struct type *type, int embedded_offset, } } +/* See f-lang.h. */ + +void +f_value_print_innner (struct value *val, struct ui_file *stream, int recurse, + const struct value_print_options *options) +{ + f_val_print (value_type (val), value_embedded_offset (val), + value_address (val), stream, recurse, val, options); +} + static void info_common_command_for_block (const struct block *block, const char *comname, int *any_printed) -- cgit v1.1