diff options
author | Joel Brobecker <brobecker@gnat.com> | 2010-01-08 11:58:22 +0000 |
---|---|---|
committer | Joel Brobecker <brobecker@gnat.com> | 2010-01-08 11:58:22 +0000 |
commit | 0c52129b5b7bfa0d595aee2db9759b820e60354f (patch) | |
tree | d182cdee898d95c81016222668151a9494325a97 /gdb/ada-valprint.c | |
parent | dcc4df60aef2af0e032e28bede20537e107516cc (diff) | |
download | gdb-0c52129b5b7bfa0d595aee2db9759b820e60354f.tar.gz |
Get rid of support for VAX Floats.
* ada-lang.h (ada_is_vax_floating_type, ada_vax_float_type_suffix)
(ada_vax_float_print_function): Delete.
* ada-lang.c (ada_is_vax_floating_type, ada_vax_float_type_suffix)
(ada_vax_float_print_function): Delete.
* ada-typeprint.c (print_vax_floating_point_type): Delete.
(ada_print_type): Remove support for VAX floats.
* ada-valprint.c (ada_val_print_1): Remove support for VAX floats.
Diffstat (limited to 'gdb/ada-valprint.c')
-rw-r--r-- | gdb/ada-valprint.c | 16 |
1 files changed, 0 insertions, 16 deletions
diff --git a/gdb/ada-valprint.c b/gdb/ada-valprint.c index 7c96db04a77..e000411efdd 100644 --- a/gdb/ada-valprint.c +++ b/gdb/ada-valprint.c @@ -744,22 +744,6 @@ ada_val_print_1 (struct type *type, const gdb_byte *valaddr0, (double) ada_fixed_to_float (type, v)); return 0; } - else if (ada_is_vax_floating_type (type)) - { - struct value *val = - value_from_contents_and_address (type, valaddr, address); - struct value *func = ada_vax_float_print_function (type); - if (func != 0) - { - struct gdbarch *gdbarch = get_type_arch (type); - CORE_ADDR addr; - addr = value_as_address (call_function_by_hand (func, 1, &val)); - val_print_string (builtin_type (gdbarch)->builtin_true_char, - addr, -1, stream, options); - return 0; - } - /* No special printing function. Do as best we can. */ - } else if (TYPE_CODE (type) == TYPE_CODE_RANGE) { struct type *target_type = TYPE_TARGET_TYPE (type); |