From 2e088f8b6ea61fa9db1b592cbd4a6aa80b4e0ab5 Mon Sep 17 00:00:00 2001 From: Tom Tromey Date: Fri, 13 Mar 2020 17:39:52 -0600 Subject: [PATCH] Convert ada_val_print_ref to value-based API This converts ada_val_print_ref to the value-based API by using common_val_print rather than val_print. gdb/ChangeLog 2020-03-13 Tom Tromey * ada-valprint.c (ada_val_print_ref): Use common_val_print. --- gdb/ChangeLog | 4 ++++ gdb/ada-valprint.c | 6 ++---- 2 files changed, 6 insertions(+), 4 deletions(-) diff --git a/gdb/ChangeLog b/gdb/ChangeLog index b235b0f6d64..78ffe614c95 100644 --- a/gdb/ChangeLog +++ b/gdb/ChangeLog @@ -1,3 +1,7 @@ +2020-03-13 Tom Tromey + + * ada-valprint.c (ada_val_print_ref): Use common_val_print. + 2020-03-13 Tom Tromey * ada-valprint.c (ada_value_print_num): New function. diff --git a/gdb/ada-valprint.c b/gdb/ada-valprint.c index 4b89473fef3..1d3b06ddfdd 100644 --- a/gdb/ada-valprint.c +++ b/gdb/ada-valprint.c @@ -1207,10 +1207,8 @@ ada_val_print_ref (struct type *type, const gdb_byte *valaddr, if (value_lazy (deref_val)) value_fetch_lazy (deref_val); - val_print (value_type (deref_val), - value_embedded_offset (deref_val), - value_address (deref_val), stream, recurse + 1, - deref_val, options, language_def (language_ada)); + common_val_print (deref_val, stream, recurse + 1, + options, language_def (language_ada)); } /* See the comment on ada_val_print. This function differs in that it -- 2.30.2