diff options
Diffstat (limited to 'gcc/ada/s-taenca.adb')
| -rw-r--r-- | gcc/ada/s-taenca.adb | 32 |
1 files changed, 16 insertions, 16 deletions
diff --git a/gcc/ada/s-taenca.adb b/gcc/ada/s-taenca.adb index 63b78d05205..97705c1f834 100644 --- a/gcc/ada/s-taenca.adb +++ b/gcc/ada/s-taenca.adb @@ -113,7 +113,7 @@ package body System.Tasking.Entry_Calls is -- If Single_Lock and server is a PO, take RTS_Lock on exit. procedure Unlock_And_Update_Server - (Self_ID : Task_ID; + (Self_ID : Task_Id; Entry_Call : Entry_Call_Link); -- Similar to Unlock_Server, but services entry calls if the -- server is a protected object. @@ -121,7 +121,7 @@ package body System.Tasking.Entry_Calls is -- If Single_Lock and server is a PO, take RTS_Lock on exit. procedure Check_Pending_Actions_For_Entry_Call - (Self_ID : Task_ID; + (Self_ID : Task_Id; Entry_Call : Entry_Call_Link); -- This procedure performs priority change of a queued call and -- dequeuing of an entry call when the call is cancelled. @@ -133,7 +133,7 @@ package body System.Tasking.Entry_Calls is -- and to dequeue the call if the call has been aborted. procedure Poll_Base_Priority_Change_At_Entry_Call - (Self_ID : Task_ID; + (Self_ID : Task_Id; Entry_Call : Entry_Call_Link); pragma Inline (Poll_Base_Priority_Change_At_Entry_Call); -- A specialized version of Poll_Base_Priority_Change, @@ -146,7 +146,7 @@ package body System.Tasking.Entry_Calls is --------------------- procedure Check_Exception - (Self_ID : Task_ID; + (Self_ID : Task_Id; Entry_Call : Entry_Call_Link) is pragma Warnings (Off, Self_ID); @@ -174,7 +174,7 @@ package body System.Tasking.Entry_Calls is ------------------------------------------ procedure Check_Pending_Actions_For_Entry_Call - (Self_ID : Task_ID; + (Self_ID : Task_Id; Entry_Call : Entry_Call_Link) is begin pragma Assert (Self_ID = Entry_Call.Self); @@ -213,7 +213,7 @@ package body System.Tasking.Entry_Calls is ----------------- procedure Lock_Server (Entry_Call : Entry_Call_Link) is - Test_Task : Task_ID; + Test_Task : Task_Id; Test_PO : Protection_Entries_Access; Ceiling_Violation : Boolean; Failures : Integer := 0; @@ -262,7 +262,7 @@ package body System.Tasking.Entry_Calls is if Ceiling_Violation then declare - Current_Task : constant Task_ID := STPO.Self; + Current_Task : constant Task_Id := STPO.Self; Old_Base_Priority : System.Any_Priority; begin @@ -315,7 +315,7 @@ package body System.Tasking.Entry_Calls is --------------------------------------------- procedure Poll_Base_Priority_Change_At_Entry_Call - (Self_ID : Task_ID; + (Self_ID : Task_Id; Entry_Call : Entry_Call_Link) is begin if Dynamic_Priority_Support and then Self_ID.Pending_Priority_Change then @@ -377,7 +377,7 @@ package body System.Tasking.Entry_Calls is -------------------- procedure Reset_Priority - (Acceptor : Task_ID; + (Acceptor : Task_Id; Acceptor_Prev_Priority : Rendezvous_Priority) is begin pragma Assert (Acceptor = STPO.Self); @@ -397,7 +397,7 @@ package body System.Tasking.Entry_Calls is procedure Try_To_Cancel_Entry_Call (Succeeded : out Boolean) is Entry_Call : Entry_Call_Link; - Self_ID : constant Task_ID := STPO.Self; + Self_ID : constant Task_Id := STPO.Self; use type Ada.Exceptions.Exception_Id; @@ -459,11 +459,11 @@ package body System.Tasking.Entry_Calls is ------------------------------ procedure Unlock_And_Update_Server - (Self_ID : Task_ID; + (Self_ID : Task_Id; Entry_Call : Entry_Call_Link) is Called_PO : Protection_Entries_Access; - Caller : Task_ID; + Caller : Task_Id; begin if Entry_Call.Called_Task /= null then @@ -503,7 +503,7 @@ package body System.Tasking.Entry_Calls is ------------------- procedure Unlock_Server (Entry_Call : Entry_Call_Link) is - Caller : Task_ID; + Caller : Task_Id; Called_PO : Protection_Entries_Access; begin @@ -543,7 +543,7 @@ package body System.Tasking.Entry_Calls is ------------------------- procedure Wait_For_Completion (Entry_Call : Entry_Call_Link) is - Self_Id : constant Task_ID := Entry_Call.Self; + Self_Id : constant Task_Id := Entry_Call.Self; begin -- If this is a conditional call, it should be cancelled when it -- becomes abortable. This is checked in the loop below. @@ -600,7 +600,7 @@ package body System.Tasking.Entry_Calls is Mode : Delay_Modes; Yielded : out Boolean) is - Self_Id : constant Task_ID := Entry_Call.Self; + Self_Id : constant Task_Id := Entry_Call.Self; Timedout : Boolean := False; use type Ada.Exceptions.Exception_Id; @@ -699,7 +699,7 @@ package body System.Tasking.Entry_Calls is -------------------------- procedure Wait_Until_Abortable - (Self_ID : Task_ID; + (Self_ID : Task_Id; Call : Entry_Call_Link) is begin pragma Assert (Self_ID.ATC_Nesting_Level > 0); |
