From b9fa6e07980f901f2a3f99b7eed4356d3209a3c4 Mon Sep 17 00:00:00 2001 From: Tom Tromey Date: Fri, 13 Mar 2020 17:39:52 -0600 Subject: [PATCH] Rewrite ada_value_print_1 floating point case This rewrites the TYPE_CODE_FLT case in ada_value_print_1 to be purely value-based. gdb/ChangeLog 2020-03-13 Tom Tromey * ada-valprint.c (ada_value_print_1) : Rewrite. --- gdb/ChangeLog | 4 ++++ gdb/ada-valprint.c | 11 ++++++++--- 2 files changed, 12 insertions(+), 3 deletions(-) diff --git a/gdb/ChangeLog b/gdb/ChangeLog index c5c060f3613..ebeedb598e6 100644 --- a/gdb/ChangeLog +++ b/gdb/ChangeLog @@ -1,3 +1,7 @@ +2020-03-13 Tom Tromey + + * ada-valprint.c (ada_value_print_1) : Rewrite. + 2020-03-13 Tom Tromey * ada-valprint.c (ada_value_print_ptr): New function. diff --git a/gdb/ada-valprint.c b/gdb/ada-valprint.c index 2cb7334b4ec..e0ef410bf0d 100644 --- a/gdb/ada-valprint.c +++ b/gdb/ada-valprint.c @@ -1294,9 +1294,14 @@ ada_value_print_1 (struct value *val, struct ui_file *stream, int recurse, break; case TYPE_CODE_FLT: - ada_val_print_flt (type, valaddr, 0, 0, - address, stream, recurse, val, - options); + if (options->format) + { + common_val_print (val, stream, recurse, options, + language_def (language_c)); + break; + } + + ada_print_floating (valaddr, type, stream); break; case TYPE_CODE_UNION: -- 2.30.2