2008-04-08 Hristian Kirtchev <kirtchev@adacore.com>

[pf3gnuchains/gcc-fork.git] / gcc / ada / s-tasque.adb

diff --git a/gcc/ada/s-tasque.adb b/gcc/ada/s-tasque.adb
index 175b6b9..7a4aac8 100644 (file)
--- a/gcc/ada/s-tasque.adb
+++ b/gcc/ada/s-tasque.adb
@@ -6,7 +6,7 @@
 --                                                                          --
 --                                  B o d y                                 --
 --                                                                          --
---         Copyright (C) 1992-2005, Free Software Foundation, Inc.          --
+--         Copyright (C) 1992-2008, 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- --
@@ -31,19 +31,13 @@
 --                                                                          --
 ------------------------------------------------------------------------------
 
---  This version of the body implements queueing policy according to the
---  policy specified by the pragma Queuing_Policy. When no such pragma
---  is specified FIFO policy is used as default.
+--  This version of the body implements queueing policy according to the policy
+--  specified by the pragma Queuing_Policy. When no such pragma is specified
+--  FIFO policy is used as default.
 
 with System.Task_Primitives.Operations;
---  used for Write_Lock
---           Unlock
-
 with System.Tasking.Initialization;
---  used for Wakeup_Entry_Caller
-
 with System.Parameters;
---  used for Single_Lock
 
 package body System.Tasking.Queuing is
 
@@ -52,7 +46,7 @@ package body System.Tasking.Queuing is
    use Protected_Objects;
    use Protected_Objects.Entries;
 
-   --  Entry Queues implemented as doubly linked list.
+   --  Entry Queues implemented as doubly linked list
 
    Queuing_Policy : Character;
    pragma Import (C, Queuing_Policy, "__gl_queuing_policy");
@@ -164,7 +158,7 @@ package body System.Tasking.Queuing is
 
    --  Return number of calls on the waiting queue of E
 
-   function Count_Waiting (E : in Entry_Queue) return Natural is
+   function Count_Waiting (E : Entry_Queue) return Natural is
       Count   : Natural;
       Temp    : Entry_Call_Link;
 
@@ -418,7 +412,7 @@ package body System.Tasking.Queuing is
 
    --  Return the head of entry_queue E
 
-   function Head (E : in Entry_Queue) return Entry_Call_Link is
+   function Head (E : Entry_Queue) return Entry_Call_Link is
    begin
       pragma Assert (Check_Queue (E));
       return E.Head;
@@ -528,7 +522,7 @@ package body System.Tasking.Queuing is
             Broadcast_Program_Error (Self_ID, Object, null);
       end;
 
-      --  If a call was selected, dequeue it and return it for service.
+      --  If a call was selected, dequeue it and return it for service
 
       if Entry_Call /= null then
          Temp_Call := Entry_Call;