diff options
Diffstat (limited to 'gcc/ada/libgnarl/s-tasini.adb')
| -rw-r--r-- | gcc/ada/libgnarl/s-tasini.adb | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/gcc/ada/libgnarl/s-tasini.adb b/gcc/ada/libgnarl/s-tasini.adb index 21404d0cd52..d83ed3cda14 100644 --- a/gcc/ada/libgnarl/s-tasini.adb +++ b/gcc/ada/libgnarl/s-tasini.adb @@ -325,8 +325,8 @@ package body System.Tasking.Initialization is -- of the environment task. Self_Id := Environment_Task; - Self_Id.Master_of_Task := Environment_Task_Level; - Self_Id.Master_Within := Self_Id.Master_of_Task + 1; + Self_Id.Master_Of_Task := Environment_Task_Level; + Self_Id.Master_Within := Self_Id.Master_Of_Task + 1; for L in Self_Id.Entry_Calls'Range loop Self_Id.Entry_Calls (L).Self := Self_Id; |