diff options
Diffstat (limited to 'gcc/ada/targparm.adb')
| -rw-r--r-- | gcc/ada/targparm.adb | 10 |
1 files changed, 3 insertions, 7 deletions
diff --git a/gcc/ada/targparm.adb b/gcc/ada/targparm.adb index 67a5c0d83ef..0fd9c7fc596 100644 --- a/gcc/ada/targparm.adb +++ b/gcc/ada/targparm.adb @@ -67,10 +67,9 @@ package body Targparm is UAM, -- Use_Ada_Main_Program_Name VMS, -- OpenVMS ZCD, -- ZCX_By_Default - ZCG, -- GCC_ZCX_Support - ZCF); -- Front_End_ZCX_Support + ZCG); -- GCC_ZCX_Support - subtype Targparm_Tags_OK is Targparm_Tags range AAM .. ZCF; + subtype Targparm_Tags_OK is Targparm_Tags range AAM .. ZCG; -- Range excluding obsolete entries Targparm_Flags : array (Targparm_Tags) of Boolean := (others => False); @@ -106,7 +105,6 @@ package body Targparm is VMS_Str : aliased constant Source_Buffer := "OpenVMS"; ZCD_Str : aliased constant Source_Buffer := "ZCX_By_Default"; ZCG_Str : aliased constant Source_Buffer := "GCC_ZCX_Support"; - ZCF_Str : aliased constant Source_Buffer := "Front_End_ZCX_Support"; -- The following defines a set of pointers to the above strings, -- indexed by the tag values. @@ -140,8 +138,7 @@ package body Targparm is UAM_Str'Access, VMS_Str'Access, ZCD_Str'Access, - ZCG_Str'Access, - ZCF_Str'Access); + ZCG_Str'Access); ----------------------- -- Local Subprograms -- @@ -571,7 +568,6 @@ package body Targparm is when VMS => OpenVMS_On_Target := Result; when ZCD => ZCX_By_Default_On_Target := Result; when ZCG => GCC_ZCX_Support_On_Target := Result; - when ZCF => Front_End_ZCX_Support_On_Target := Result; goto Line_Loop_Continue; end case; |