diff options
| author | Arnaud Charlet <charlet@adacore.com> | 2020-10-24 08:01:58 -0400 |
|---|---|---|
| committer | Pierre-Marie de Rodat <derodat@adacore.com> | 2020-11-26 03:39:47 -0500 |
| commit | 416f9a2726513adc796ca7ed2145fca54da9fd1d (patch) | |
| tree | bb52a9ee59ff086577fffb4bbbfc37052b01baa6 /gcc | |
| parent | ccd05f6c8fd4c90e6c4cd1f683991fe498aef74c (diff) | |
| download | gcc-416f9a2726513adc796ca7ed2145fca54da9fd1d.zip gcc-416f9a2726513adc796ca7ed2145fca54da9fd1d.tar.gz gcc-416f9a2726513adc796ca7ed2145fca54da9fd1d.tar.bz2 | |
[Ada] Constraint_Error in Task_Wrapper and -u0
gcc/ada/
* libgnarl/s-tassta.adb (Task_Wrapper): Fix computation of
Pattern_Size.
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/ada/libgnarl/s-tassta.adb | 11 |
1 files changed, 5 insertions, 6 deletions
diff --git a/gcc/ada/libgnarl/s-tassta.adb b/gcc/ada/libgnarl/s-tassta.adb index aada734..900b3b7 100644 --- a/gcc/ada/libgnarl/s-tassta.adb +++ b/gcc/ada/libgnarl/s-tassta.adb @@ -1096,11 +1096,10 @@ package body System.Tasking.Stages is -- stack analysis. Big_Overflow_Guard : constant := 64 * 1024 + 8 * 1024; - Small_Stack_Limit : constant := 64 * 1024; - -- ??? These three values are experimental, and seem to work on - -- most platforms. They still need to be analyzed further. They - -- also need documentation, what are they and why does the logic - -- differ depending on whether the stack is large or small??? + -- These two values are experimental, and seem to work on most + -- platforms. They still need to be analyzed further. They also + -- need documentation, what are they and why does the logic differ + -- depending on whether the stack is large or small??? Pattern_Size : Natural := Natural (Self_ID.Common. @@ -1123,7 +1122,7 @@ package body System.Tasking.Stages is -- Adjustments for inner frames Pattern_Size := Pattern_Size - - (if Pattern_Size < Small_Stack_Limit + (if Pattern_Size < Big_Overflow_Guard then Small_Overflow_Guard else Big_Overflow_Guard); else |