FreeChainXenon/binutils-gdb
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Get rid of support for VAX Floats.

Browse source 
* 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.
This commit is contained in:
Joel Brobecker 2010-01-08 11:58:23 +00:00
parent cf000afb0d
commit 92b9ce5b60
5 changed files with 12 additions and 82 deletions
Download patch file Download diff file Expand all files Collapse all files

46
gdb/ada-lang.c
View file

@ -9656,52 +9656,6 @@ ada_float_to_fixed (struct type *type, DOUBLEST x)
return (LONGEST) (x / scaling_factor (type) + 0.5);
}
/* VAX floating formats */
/* Non-zero iff TYPE represents one of the special VAX floating-point
types. */
int
ada_is_vax_floating_type (struct type *type)
{
int name_len =
(ada_type_name (type) == NULL) ? 0 : strlen (ada_type_name (type));
return
name_len > 6
&& (TYPE_CODE (type) == TYPE_CODE_INT
|| TYPE_CODE (type) == TYPE_CODE_RANGE)
&& strncmp (ada_type_name (type) + name_len - 6, "___XF", 5) == 0;
}
/* The type of special VAX floating-point type this is, assuming
ada_is_vax_floating_point. */
int
ada_vax_float_type_suffix (struct type *type)
{
return ada_type_name (type)[strlen (ada_type_name (type)) - 1];
}
/* A value representing the special debugging function that outputs
VAX floating-point values of the type represented by TYPE. Assumes
ada_is_vax_floating_type (TYPE). */
struct value *
ada_vax_float_print_function (struct type *type)
{
switch (ada_vax_float_type_suffix (type))
{
case 'F':
return get_var_value ("DEBUG_STRING_F", 0);
case 'D':
return get_var_value ("DEBUG_STRING_D", 0);
case 'G':
return get_var_value ("DEBUG_STRING_G", 0);
default:
error (_("invalid VAX floating-point type"));
}
}
/* Range types */