From 62e170e586d0822e7b92ca2f92df29d4b7b8e38b Mon Sep 17 00:00:00 2001 From: Patrick Bernardi Date: Thu, 17 Aug 2023 16:24:13 -0400 Subject: [PATCH] ada: Generate runtime restrictions list when the standard library is suppressed With the introduction of Jorvik support into the light-tasking runtime comes the requirement to detect voliations of runtime restrictions (for example Max_Entry_Queue_Length) where previously they could be hard coded in the runtime. This means we now need the binder to populate System.System.Restrictions.Run_Time_Restrictions when the standard library is suppressed. gcc/ada/ * bindgen.adb (Gen_Adainit): Generate restrictions when standard library is suppressed. (Gen_Output_File_Ada): Ditto. (Gen_Restrictions): Ditto. --- gcc/ada/bindgen.adb | 10 ++++------ 1 file changed, 4 insertions(+), 6 deletions(-) diff --git a/gcc/ada/bindgen.adb b/gcc/ada/bindgen.adb index ae20e5f40d38..87f162e6b430 100644 --- a/gcc/ada/bindgen.adb +++ b/gcc/ada/bindgen.adb @@ -691,6 +691,8 @@ package body Bindgen is WBI (" null;"); end if; + Gen_Restrictions; + -- Generate the default-sized secondary stack pool if the secondary -- stack is used by the program. @@ -2804,9 +2806,7 @@ package body Bindgen is -- Generate with of System.Restrictions to initialize -- Run_Time_Restrictions. - if System_Restrictions_Used - and not Suppress_Standard_Library_On_Target - then + if System_Restrictions_Used then WBI (""); WBI ("with System.Restrictions;"); end if; @@ -2946,9 +2946,7 @@ package body Bindgen is Count : Integer; begin - if Suppress_Standard_Library_On_Target - or not System_Restrictions_Used - then + if not System_Restrictions_Used then return; end if; -- 2.47.2