diff options
| author | Tom Tromey <tom@tromey.com> | 2020-03-13 17:39:52 -0600 |
|---|---|---|
| committer | Tom Tromey <tom@tromey.com> | 2020-03-13 18:03:42 -0600 |
| commit | b9fa6e07980f901f2a3f99b7eed4356d3209a3c4 (patch) | |
| tree | fc4bbc8d781c53b3335273bf47d44e30ba8b9422 /gdb/ada-valprint.c | |
| parent | 416595d6409b1bd2e2f9862c133ca764688da77f (diff) | |
| download | binutils-gdb-b9fa6e07980f901f2a3f99b7eed4356d3209a3c4.tar.gz | |
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 <tom@tromey.com>
* ada-valprint.c (ada_value_print_1) <TYPE_CODE_FLT>: Rewrite.
Diffstat (limited to 'gdb/ada-valprint.c')
| -rw-r--r-- | gdb/ada-valprint.c | 11 |
1 files changed, 8 insertions, 3 deletions
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: |