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.

1 files changed, 0 insertions, 16 deletions

diff --git a/gdb/ada-valprint.c b/gdb/ada-valprint.c
index 7c96db0..e000411 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);