diff options
Diffstat (limited to 'gcc/ada/s-tasque.ads')
| -rw-r--r-- | gcc/ada/s-tasque.ads | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/gcc/ada/s-tasque.ads b/gcc/ada/s-tasque.ads index 91538a2..170a297 100644 --- a/gcc/ada/s-tasque.ads +++ b/gcc/ada/s-tasque.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- -- @@ -38,7 +38,7 @@ package System.Tasking.Queuing is package POE renames System.Tasking.Protected_Objects.Entries; procedure Broadcast_Program_Error - (Self_ID : Task_ID; + (Self_ID : Task_Id; Object : POE.Protection_Entries_Access; Pending_Call : Entry_Call_Link; RTS_Locked : Boolean := False); @@ -71,7 +71,7 @@ package System.Tasking.Queuing is -- Return number of calls on the waiting queue of E procedure Select_Task_Entry_Call - (Acceptor : Task_ID; + (Acceptor : Task_Id; Open_Accepts : Accept_List_Access; Call : out Entry_Call_Link; Selection : out Select_Index; @@ -82,7 +82,7 @@ package System.Tasking.Queuing is -- Open_Alternative will be True if there were any open alternatives procedure Select_Protected_Entry_Call - (Self_ID : Task_ID; + (Self_ID : Task_Id; Object : POE.Protection_Entries_Access; Call : out Entry_Call_Link); -- Select an entry of a protected object |