diff options
Diffstat (limited to 'gcc/ada/set_targ.adb')
| -rw-r--r-- | gcc/ada/set_targ.adb | 9 |
1 files changed, 2 insertions, 7 deletions
diff --git a/gcc/ada/set_targ.adb b/gcc/ada/set_targ.adb index b8578f5..5af7f1a 100644 --- a/gcc/ada/set_targ.adb +++ b/gcc/ada/set_targ.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- Copyright (C) 2013-2020, Free Software Foundation, Inc. -- +-- Copyright (C) 2013-2021, Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- -- terms of the GNU General Public License as published by the Free Soft- -- @@ -309,7 +309,6 @@ package body Set_Targ is Write_Str ("pragma Float_Representation ("); case Float_Rep is - when AAMP => Write_Str ("AAMP"); when IEEE_Binary => Write_Str ("IEEE"); end case; @@ -532,7 +531,6 @@ package body Set_Targ is AddC (' '); case E.FLOAT_REP is - when AAMP => AddC ('A'); when IEEE_Binary => AddC ('I'); end case; @@ -795,9 +793,6 @@ package body Set_Targ is when 'I' => E.FLOAT_REP := IEEE_Binary; - when 'A' => - E.FLOAT_REP := AAMP; - when others => FailN ("bad float rep field for"); end case; @@ -880,7 +875,7 @@ begin argv := save_argv; argc := save_argc; else - -- Case of a non gcc compiler, e.g. gnat2why or gnat2scil + -- Case of a non-GCC compiler, e.g. gnat2why or gnat2scil argv := gnat_argv; argc := gnat_argc; end if; |