mirror/binutils-gdb
2
0
Fork 0
mirror of https://sourceware.org/git/binutils-gdb.git synced 2025-01-24 12:35:55 +08:00
Code Issues Packages Projects Releases Wiki Activity

Rewrite ada_value_print_1 floating point case

Browse Source 
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.
This commit is contained in:
Tom Tromey 2020-03-13 17:39:52 -06:00
parent 416595d640
commit b9fa6e0798
2 changed files with 12 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
gdb/ChangeLog
View File

@ -1,3 +1,7 @@
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.

11
gdb/ada-valprint.c
View File

@ -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: