diff options
Diffstat (limited to 'gcc/ada/s-tasini.ads')
| -rw-r--r-- | gcc/ada/s-tasini.ads | 34 |
1 files changed, 17 insertions, 17 deletions
diff --git a/gcc/ada/s-tasini.ads b/gcc/ada/s-tasini.ads index 9a52aac..e44072c 100644 --- a/gcc/ada/s-tasini.ads +++ b/gcc/ada/s-tasini.ads @@ -6,7 +6,7 @@ -- -- -- S p e c -- -- -- --- Copyright (C) 1992-2001, Free Software Foundation, Inc. -- +-- Copyright (C) 1992-2004, Free Software Foundation, Inc. -- -- -- -- GNARL is free software; you can redistribute it and/or modify it under -- -- terms of the GNU General Public License as published by the Free Soft- -- @@ -36,7 +36,7 @@ package System.Tasking.Initialization is - procedure Remove_From_All_Tasks_List (T : Task_ID); + procedure Remove_From_All_Tasks_List (T : Task_Id); -- Remove T from All_Tasks_List. -- Call this function with RTS_Lock taken. @@ -49,10 +49,10 @@ package System.Tasking.Initialization is -- by the tasking run-time system. -- So far, the only example is support for Ada.Task_Attributes. - type Proc_T is access procedure (T : Task_ID); + type Proc_T is access procedure (T : Task_Id); - procedure Finalize_Attributes (T : Task_ID); - procedure Initialize_Attributes (T : Task_ID); + procedure Finalize_Attributes (T : Task_Id); + procedure Initialize_Attributes (T : Task_Id); Finalize_Attributes_Link : Proc_T := Finalize_Attributes'Access; -- should be called with abortion deferred and T.L write-locked @@ -108,18 +108,18 @@ package System.Tasking.Initialization is -- Non-nestable inline versions -- - procedure Defer_Abort (Self_ID : Task_ID); + procedure Defer_Abort (Self_ID : Task_Id); pragma Inline (Defer_Abort); - procedure Undefer_Abort (Self_ID : Task_ID); + procedure Undefer_Abort (Self_ID : Task_Id); pragma Inline (Undefer_Abort); -- Nestable inline versions -- - procedure Defer_Abort_Nestable (Self_ID : Task_ID); + procedure Defer_Abort_Nestable (Self_ID : Task_Id); pragma Inline (Defer_Abort_Nestable); - procedure Undefer_Abort_Nestable (Self_ID : Task_ID); + procedure Undefer_Abort_Nestable (Self_ID : Task_Id); pragma Inline (Undefer_Abort_Nestable); -- NON-INLINE versions without Self_ID for code generated by the @@ -139,12 +139,12 @@ package System.Tasking.Initialization is -- Change Base Priority -- --------------------------- - procedure Change_Base_Priority (T : Task_ID); + procedure Change_Base_Priority (T : Task_Id); -- Change the base priority of T. -- Has to be called with the affected task's ATCB write-locked. -- May temporariliy release the lock. - procedure Poll_Base_Priority_Change (Self_ID : Task_ID); + procedure Poll_Base_Priority_Change (Self_ID : Task_Id); -- Has to be called with Self_ID's ATCB write-locked. -- May temporariliy release the lock. pragma Inline (Poll_Base_Priority_Change); @@ -153,15 +153,15 @@ package System.Tasking.Initialization is -- Task Lock/Unlock -- ---------------------- - procedure Task_Lock (Self_ID : Task_ID); + procedure Task_Lock (Self_ID : Task_Id); pragma Inline (Task_Lock); - procedure Task_Unlock (Self_ID : Task_ID); + procedure Task_Unlock (Self_ID : Task_Id); pragma Inline (Task_Unlock); -- These are versions of Lock_Task and Unlock_Task created for use -- within the GNARL. - procedure Final_Task_Unlock (Self_ID : Task_ID); + procedure Final_Task_Unlock (Self_ID : Task_Id); -- This version is only for use in Terminate_Task, when the task -- is relinquishing further rights to its own ATCB. -- There is a very interesting potential race condition there, where @@ -171,7 +171,7 @@ package System.Tasking.Initialization is -- See also comments on Terminate_Task and Unlock. procedure Wakeup_Entry_Caller - (Self_ID : Task_ID; + (Self_ID : Task_Id; Entry_Call : Entry_Call_Link; New_State : Entry_Call_State); pragma Inline (Wakeup_Entry_Caller); @@ -195,8 +195,8 @@ package System.Tasking.Initialization is -- if Entry_Call.State >= Was_Abortable. procedure Locked_Abort_To_Level - (Self_ID : Task_ID; - T : Task_ID; + (Self_ID : Task_Id; + T : Task_Id; L : ATC_Level); pragma Inline (Locked_Abort_To_Level); -- Abort a task to a specified ATC level. |