public inbox for gcc-cvs@sourceware.org
help / color / mirror / Atom feed
* [gcc r14-4029] ada: Generate runtime restrictions list when the standard library is suppressed
@ 2023-09-15 13:04 Marc Poulhi?s
0 siblings, 0 replies; only message in thread
From: Marc Poulhi?s @ 2023-09-15 13:04 UTC (permalink / raw)
To: gcc-cvs
https://gcc.gnu.org/g:62e170e586d0822e7b92ca2f92df29d4b7b8e38b
commit r14-4029-g62e170e586d0822e7b92ca2f92df29d4b7b8e38b
Author: Patrick Bernardi <bernardi@adacore.com>
Date: Thu Aug 17 16:24:13 2023 -0400
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.
Diff:
---
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 ae20e5f40d3..87f162e6b43 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;
^ permalink raw reply [flat|nested] only message in thread
only message in thread, other threads:[~2023-09-15 13:04 UTC | newest]
Thread overview: (only message) (download: mbox.gz / follow: Atom feed)
-- links below jump to the message on this page --
2023-09-15 13:04 [gcc r14-4029] ada: Generate runtime restrictions list when the standard library is suppressed Marc Poulhi?s
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).