From aaa88a990dbfc9c2d1f271a6d80c6080d87594a4 Mon Sep 17 00:00:00 2001 From: Ulrich Weigand Date: Mon, 18 May 2009 13:51:52 +0000 Subject: [PATCH] * ada-valprint.c (ada_val_print_1): Use val_print_string to print result of ada_vax_float_print_function inferior call. --- gdb/ChangeLog | 5 +++++ gdb/ada-valprint.c | 20 ++++---------------- 2 files changed, 9 insertions(+), 16 deletions(-) diff --git a/gdb/ChangeLog b/gdb/ChangeLog index 578ce18..4a8874e 100644 --- a/gdb/ChangeLog +++ b/gdb/ChangeLog @@ -1,5 +1,10 @@ 2009-05-18 Ulrich Weigand + * ada-valprint.c (ada_val_print_1): Use val_print_string to print + result of ada_vax_float_print_function inferior call. + +2009-05-18 Ulrich Weigand + * ada-lang.c (ada_coerce_to_simple_array_type): Reimplement to avoid creating a dummy value. diff --git a/gdb/ada-valprint.c b/gdb/ada-valprint.c index 3da58ea..1db677d 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. */ -- 2.7.4