diff options
Diffstat (limited to 'gcc/ada/s-tarest.adb')
| -rw-r--r-- | gcc/ada/s-tarest.adb | 30 |
1 files changed, 15 insertions, 15 deletions
diff --git a/gcc/ada/s-tarest.adb b/gcc/ada/s-tarest.adb index 919db00..6b298a8 100644 --- a/gcc/ada/s-tarest.adb +++ b/gcc/ada/s-tarest.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- Copyright (C) 1999-2002, Free Software Foundation, Inc. -- +-- Copyright (C) 1999-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- -- @@ -124,13 +124,13 @@ package body System.Tasking.Restricted.Stages is -- Local Subprograms -- ------------------------ - procedure Task_Wrapper (Self_ID : Task_ID); + procedure Task_Wrapper (Self_ID : Task_Id); -- This is the procedure that is called by the GNULL from the -- new context when a task is created. It waits for activation -- and then calls the task body procedure. When the task body -- procedure completes, it terminates the task. - procedure Terminate_Task (Self_ID : Task_ID); + procedure Terminate_Task (Self_ID : Task_Id); -- Terminate the calling task. -- This should only be called by the Task_Wrapper procedure. @@ -210,8 +210,8 @@ package body System.Tasking.Restricted.Stages is -- of the current thread, since it should be at a fixed offset from the -- stack base. - procedure Task_Wrapper (Self_ID : Task_ID) is - ID : Task_ID := Self_ID; + procedure Task_Wrapper (Self_ID : Task_Id) is + ID : Task_Id := Self_ID; pragma Volatile (ID); pragma Warnings (Off, ID); @@ -288,8 +288,8 @@ package body System.Tasking.Restricted.Stages is procedure Activate_Restricted_Tasks (Chain_Access : Activation_Chain_Access) is - Self_ID : constant Task_ID := STPO.Self; - C : Task_ID; + Self_ID : constant Task_Id := STPO.Self; + C : Task_Id; Activate_Prio : System.Any_Priority; Success : Boolean; @@ -377,8 +377,8 @@ package body System.Tasking.Restricted.Stages is -- activator. procedure Complete_Restricted_Activation is - Self_ID : constant Task_ID := STPO.Self; - Activator : constant Task_ID := Self_ID.Common.Activator; + Self_ID : constant Task_Id := STPO.Self; + Activator : constant Task_Id := Self_ID.Common.Activator; begin if Single_Lock then @@ -443,10 +443,10 @@ package body System.Tasking.Restricted.Stages is Elaborated : Access_Boolean; Chain : in out Activation_Chain; Task_Image : String; - Created_Task : out Task_ID) + Created_Task : out Task_Id) is - T : Task_ID; - Self_ID : constant Task_ID := STPO.Self; + T : Task_Id; + Self_ID : constant Task_Id := STPO.Self; Base_Priority : System.Any_Priority; Success : Boolean; @@ -516,7 +516,7 @@ package body System.Tasking.Restricted.Stages is -- forever, since none of the dependent tasks are expected to terminate procedure Finalize_Global_Tasks is - Self_ID : constant Task_ID := STPO.Self; + Self_ID : constant Task_Id := STPO.Self; begin pragma Assert (Self_ID = STPO.Environment_Task); @@ -542,7 +542,7 @@ package body System.Tasking.Restricted.Stages is -- Restricted_Terminated -- --------------------------- - function Restricted_Terminated (T : Task_ID) return Boolean is + function Restricted_Terminated (T : Task_Id) return Boolean is begin return T.Common.State = Terminated; end Restricted_Terminated; @@ -551,7 +551,7 @@ package body System.Tasking.Restricted.Stages is -- Terminate_Task -- -------------------- - procedure Terminate_Task (Self_ID : Task_ID) is + procedure Terminate_Task (Self_ID : Task_Id) is begin Self_ID.Common.State := Terminated; end Terminate_Task; |