diff options
author | Ulrich Weigand <uweigand@de.ibm.com> | 2009-05-18 13:51:52 +0000 |
---|---|---|
committer | Ulrich Weigand <uweigand@de.ibm.com> | 2009-05-18 13:51:52 +0000 |
commit | 381c31d5ecdd998c2d1c2712f24bca3bf612b6eb (patch) | |
tree | 5fd5734ddaeacd231ec4b13282950ef6488f720e /gdb/ada-valprint.c | |
parent | 82aa9a15b4bc6eb8545d538d8250e48b4071f5a9 (diff) | |
download | gdb-381c31d5ecdd998c2d1c2712f24bca3bf612b6eb.tar.gz |
* ada-valprint.c (ada_val_print_1): Use val_print_string to print
result of ada_vax_float_print_function inferior call.
Diffstat (limited to 'gdb/ada-valprint.c')
-rw-r--r-- | gdb/ada-valprint.c | 20 |
1 files changed, 4 insertions, 16 deletions
diff --git a/gdb/ada-valprint.c b/gdb/ada-valprint.c index 3da58ea802f..1db677ddca0 100644 --- a/gdb/ada-valprint.c +++ b/gdb/ada-valprint.c @@ -739,22 +739,10 @@ ada_val_print_1 (struct type *type, const gdb_byte *valaddr0, struct value *func = ada_vax_float_print_function (type); if (func != 0) { - static struct type *parray_of_char = NULL; - struct value *printable_val; - - if (parray_of_char == NULL) - parray_of_char = - make_pointer_type - (create_array_type - (NULL, builtin_type_true_char, - create_range_type (NULL, builtin_type_int32, 0, 32)), NULL); - - printable_val = - value_ind (value_cast (parray_of_char, - call_function_by_hand (func, 1, - &val))); - - fprintf_filtered (stream, "%s", value_contents (printable_val)); + CORE_ADDR addr; + addr = value_as_address (call_function_by_hand (func, 1, &val)); + val_print_string (builtin_type_true_char, + addr, -1, stream, options); return 0; } /* No special printing function. Do as best we can. */ |