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.
+2020-03-13 Tom Tromey <tom@tromey.com>
+
+ * ada-valprint.c (ada_value_print_1) <TYPE_CODE_FLT>: Rewrite.
+
2020-03-13 Tom Tromey <tom@tromey.com>
* ada-valprint.c (ada_value_print_ptr): New function.
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: