diff options
Diffstat (limited to 'gcc/ada/s-taskin.adb')
| -rw-r--r-- | gcc/ada/s-taskin.adb | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/gcc/ada/s-taskin.adb b/gcc/ada/s-taskin.adb index a79db6afb69..f667a313bf3 100644 --- a/gcc/ada/s-taskin.adb +++ b/gcc/ada/s-taskin.adb @@ -83,6 +83,7 @@ package body System.Tasking is T.Common.Parent := Parent; T.Common.Base_Priority := Base_Priority; T.Common.Current_Priority := 0; + T.Common.Protected_Action_Nesting := 0; T.Common.Call := null; T.Common.Task_Arg := Task_Arg; T.Common.Task_Entry_Point := Task_Entry_Point; |