OpenE2K/gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

[Ada] Constraint_Error in Task_Wrapper and -u0

Browse Source 
gcc/ada/

	* libgnarl/s-tassta.adb (Task_Wrapper): Fix computation of
	Pattern_Size.
This commit is contained in:
Arnaud Charlet 2020-10-24 08:01:58 -04:00 committed by Pierre-Marie de Rodat
parent ccd05f6c8f
commit 416f9a2726
1 changed files with 5 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
gcc/ada/libgnarl/s-tassta.adb
View File

@ -1096,11 +1096,10 @@ package body System.Tasking.Stages is
-- stack analysis. -- stack analysis.
Big_Overflow_Guard : constant := 64 * 1024 + 8 * 1024; Big_Overflow_Guard : constant := 64 * 1024 + 8 * 1024;
Small_Stack_Limit : constant := 64 * 1024; -- These two values are experimental, and seem to work on most
-- ??? These three values are experimental, and seem to work on -- platforms. They still need to be analyzed further. They also
-- most platforms. They still need to be analyzed further. They -- need documentation, what are they and why does the logic differ
-- also need documentation, what are they and why does the logic -- depending on whether the stack is large or small???
-- differ depending on whether the stack is large or small???
Pattern_Size : Natural := Pattern_Size : Natural :=
Natural (Self_ID.Common. Natural (Self_ID.Common.
@ -1123,7 +1122,7 @@ package body System.Tasking.Stages is
-- Adjustments for inner frames -- Adjustments for inner frames
Pattern_Size := Pattern_Size - Pattern_Size := Pattern_Size -
(if Pattern_Size < Small_Stack_Limit (if Pattern_Size < Big_Overflow_Guard
then Small_Overflow_Guard then Small_Overflow_Guard
else Big_Overflow_Guard); else Big_Overflow_Guard);
else else