diff options
Diffstat (limited to 'gcc/ada/targparm.adb')
-rw-r--r-- | gcc/ada/targparm.adb | 16 |
1 files changed, 14 insertions, 2 deletions
diff --git a/gcc/ada/targparm.adb b/gcc/ada/targparm.adb index b9fac0bb126..7dd1d611567 100644 --- a/gcc/ada/targparm.adb +++ b/gcc/ada/targparm.adb @@ -39,6 +39,7 @@ package body Targparm is type Targparm_Tags is (AAM, -- AAMP + ACR, -- Always_Compatible_Rep BDC, -- Backend_Divide_Checks BOC, -- Backend_Overflow_Checks CLA, -- Command_Line_Args @@ -46,6 +47,7 @@ package body Targparm is CRT, -- Configurable_Run_Times D32, -- Duration_32_Bits DEN, -- Denorm + DTU, -- Dynamic_Trampolines_Used EXS, -- Exit_Status_Supported FEL, -- Frontend_Layout FFO, -- Fractional_Fixed_Ops @@ -58,6 +60,7 @@ package body Targparm is SCA, -- Support_Composite_Assign SCC, -- Support_Composite_Compare SCD, -- Stack_Check_Default + SCL, -- Stack_Check_Limits SCP, -- Stack_Check_Probes SLS, -- Support_Long_Shifts SNZ, -- Signed_Zeros @@ -73,6 +76,7 @@ package body Targparm is -- The following list of string constants gives the parameter names AAM_Str : aliased constant Source_Buffer := "AAMP"; + ACR_Str : aliased constant Source_Buffer := "Always_Compatible_Rep"; BDC_Str : aliased constant Source_Buffer := "Backend_Divide_Checks"; BOC_Str : aliased constant Source_Buffer := "Backend_Overflow_Checks"; CLA_Str : aliased constant Source_Buffer := "Command_Line_Args"; @@ -80,6 +84,7 @@ package body Targparm is CRT_Str : aliased constant Source_Buffer := "Configurable_Run_Time"; D32_Str : aliased constant Source_Buffer := "Duration_32_Bits"; DEN_Str : aliased constant Source_Buffer := "Denorm"; + DTU_Str : aliased constant Source_Buffer := "Dynamic_Trampolines_Used"; EXS_Str : aliased constant Source_Buffer := "Exit_Status_Supported"; FEL_Str : aliased constant Source_Buffer := "Frontend_Layout"; FFO_Str : aliased constant Source_Buffer := "Fractional_Fixed_Ops"; @@ -92,6 +97,7 @@ package body Targparm is SCA_Str : aliased constant Source_Buffer := "Support_Composite_Assign"; SCC_Str : aliased constant Source_Buffer := "Support_Composite_Compare"; SCD_Str : aliased constant Source_Buffer := "Stack_Check_Default"; + SCL_Str : aliased constant Source_Buffer := "Stack_Check_Limits"; SCP_Str : aliased constant Source_Buffer := "Stack_Check_Probes"; SLS_Str : aliased constant Source_Buffer := "Support_Long_Shifts"; SNZ_Str : aliased constant Source_Buffer := "Signed_Zeros"; @@ -107,6 +113,7 @@ package body Targparm is type Buffer_Ptr is access constant Source_Buffer; Targparm_Str : constant array (Targparm_Tags) of Buffer_Ptr := (AAM_Str'Access, + ACR_Str'Access, BDC_Str'Access, BOC_Str'Access, CLA_Str'Access, @@ -114,6 +121,7 @@ package body Targparm is CRT_Str'Access, D32_Str'Access, DEN_Str'Access, + DTU_Str'Access, EXS_Str'Access, FEL_Str'Access, FFO_Str'Access, @@ -126,6 +134,7 @@ package body Targparm is SCA_Str'Access, SCC_Str'Access, SCD_Str'Access, + SCL_Str'Access, SCP_Str'Access, SLS_Str'Access, SNZ_Str'Access, @@ -168,7 +177,7 @@ package body Targparm is raise Unrecoverable_Error; end if; - Targparm.Get_Target_Parameters + Get_Target_Parameters (System_Text => Text, Source_First => 0, Source_Last => Hi); @@ -544,6 +553,7 @@ package body Targparm is case K is when AAM => AAMP_On_Target := Result; + when ACR => Always_Compatible_Rep_On_Target := Result; when BDC => Backend_Divide_Checks_On_Target := Result; when BOC => Backend_Overflow_Checks_On_Target := Result; when CLA => Command_Line_Args_On_Target := Result; @@ -555,6 +565,7 @@ package body Targparm is when CRT => Configurable_Run_Time_On_Target := Result; when D32 => Duration_32_Bits_On_Target := Result; when DEN => Denorm_On_Target := Result; + when DTU => Dynamic_Trampolines_Used_On_Target := Result; when EXS => Exit_Status_Supported_On_Target := Result; when FEL => Frontend_Layout_On_Target := Result; when FFO => Fractional_Fixed_Ops_On_Target := Result; @@ -571,6 +582,7 @@ package body Targparm is when SCA => Support_Composite_Assign_On_Target := Result; when SCC => Support_Composite_Compare_On_Target := Result; when SCD => Stack_Check_Default_On_Target := Result; + when SCL => Stack_Check_Limits_On_Target := Result; when SCP => Stack_Check_Probes_On_Target := Result; when SLS => Support_Long_Shifts_On_Target := Result; when SSL => Suppress_Standard_Library_On_Target := Result; @@ -586,7 +598,7 @@ package body Targparm is -- Here we are seeing a parameter we do not understand. We -- simply ignore this (will happen when an old compiler is -- used to compile a newer version of GNAT which does not - -- support the + -- support the parameter). end if; end loop Config_Param_Loop; end if; |