diff options
Diffstat (limited to 'gcc/ada/s-tasque.ads')
| -rw-r--r-- | gcc/ada/s-tasque.ads | 19 |
1 files changed, 10 insertions, 9 deletions
diff --git a/gcc/ada/s-tasque.ads b/gcc/ada/s-tasque.ads index 9ee56095c0e..c6de5c02262 100644 --- a/gcc/ada/s-tasque.ads +++ b/gcc/ada/s-tasque.ads @@ -6,9 +6,9 @@ -- -- -- S p e c -- -- -- --- $Revision: 1.21 $ +-- $Revision$ -- -- --- Copyright (C) 1991-1998 Florida State University -- +-- Copyright (C) 1992-2001, 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- -- @@ -29,8 +29,7 @@ -- covered by the GNU Public License. -- -- -- -- GNARL was developed by the GNARL team at Florida State University. It is -- --- now maintained by Ada Core Technologies Inc. in cooperation with Florida -- --- State University (http://www.gnat.com). -- +-- now maintained by Ada Core Technologies, Inc. (http://www.gnat.com). -- -- -- ------------------------------------------------------------------------------ @@ -43,11 +42,13 @@ package System.Tasking.Queuing is procedure Broadcast_Program_Error (Self_ID : Task_ID; Object : POE.Protection_Entries_Access; - Pending_Call : Entry_Call_Link); - -- Raise Program_Error in all tasks calling the protected entries - -- of Object. The exception will not be raised immediately for - -- the calling task; it will be deferred until it calls - -- Raise_Pending_Exception. + Pending_Call : Entry_Call_Link; + RTS_Locked : Boolean := False); + -- Raise Program_Error in all tasks calling the protected entries of Object + -- The exception will not be raised immediately for the calling task; it + -- will be deferred until it calls Check_Exception. + -- RTS_Locked indicates whether the global RTS lock is taken (only + -- relevant if Single_Lock is True). procedure Enqueue (E : in out Entry_Queue; Call : Entry_Call_Link); -- Enqueue Call at the end of entry_queue E |