diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2014-07-31 15:53:40 +0200 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2014-07-31 15:53:40 +0200 |
| commit | 802118024ce85af98c40e5b354041a52d991493a (patch) | |
| tree | 586469f31210d053058fb0b01c5e8a8fd796648b /gcc/ada/set_targ.adb | |
| parent | 3f1be5bec33bbf2131d80a33d782ccca5882f7ba (diff) | |
| download | gcc-802118024ce85af98c40e5b354041a52d991493a.zip gcc-802118024ce85af98c40e5b354041a52d991493a.tar.gz gcc-802118024ce85af98c40e5b354041a52d991493a.tar.bz2 | |
[multiple changes]
2014-07-31 Arnaud Charlet <charlet@adacore.com>
* einfo.adb: Remove VMS specific code.
* exp_attr.adb: Remove VAX specific code.
* set_targ.adb: Remove handling of VAX_Float.
* sem_vfpt.adb: Remove references to Vax_Native.
* sem_attr.adb (Is_VAX_Float): Remove ref to VAX_Native.
2014-07-31 Robert Dewar <dewar@adacore.com>
* sem_ch4.adb: Minor reformatting.
From-SVN: r213371
Diffstat (limited to 'gcc/ada/set_targ.adb')
| -rwxr-xr-x | gcc/ada/set_targ.adb | 26 |
1 files changed, 2 insertions, 24 deletions
diff --git a/gcc/ada/set_targ.adb b/gcc/ada/set_targ.adb index 704bea6..46f40cc 100755 --- a/gcc/ada/set_targ.adb +++ b/gcc/ada/set_targ.adb @@ -225,26 +225,8 @@ package body Set_Targ is Write_Str ("pragma Float_Representation ("); case Float_Rep is - when IEEE_Binary => - Write_Str ("IEEE"); - - when VAX_Native => - case Digs is - when 6 => - Write_Str ("VAXF"); - - when 9 => - Write_Str ("VAXD"); - - when 15 => - Write_Str ("VAXG"); - - when others => - Write_Str ("VAX_"); - Write_Int (Int (Digs)); - end case; - - when AAMP => Write_Str ("AAMP"); + when IEEE_Binary => Write_Str ("IEEE"); + when AAMP => Write_Str ("AAMP"); end case; Write_Line (", " & T (1 .. Last) & ");"); @@ -459,8 +441,6 @@ package body Set_Targ is case E.FLOAT_REP is when IEEE_Binary => AddC ('I'); - when VAX_Native => - AddC ('V'); when AAMP => AddC ('A'); end case; @@ -709,8 +689,6 @@ package body Set_Targ is case Buffer (N) is when 'I' => E.FLOAT_REP := IEEE_Binary; - when 'V' => - E.FLOAT_REP := VAX_Native; when 'A' => E.FLOAT_REP := AAMP; when others => |