2007-04-20 Vincent Celier <celier@adacore.com>

[pf3gnuchains/gcc-fork.git] / gcc / ada / s-taasde.ads

diff --git a/gcc/ada/s-taasde.ads b/gcc/ada/s-taasde.ads
index 1be2904..4eecabf 100644 (file)
--- a/gcc/ada/s-taasde.ads
+++ b/gcc/ada/s-taasde.ads
@@ -1,12 +1,12 @@
 ------------------------------------------------------------------------------
 --                                                                          --
---                GNU ADA RUN-TIME LIBRARY (GNARL) COMPONENTS               --
+--                 GNAT RUN-TIME LIBRARY (GNARL) COMPONENTS                 --
 --                                                                          --
 --           S Y S T E M . T A S K I N G . A S Y N C _ D E L A Y S          --
 --                                                                          --
 --                                  S p e c                                 --
 --                                                                          --
---          Copyright (C) 1998-2001 Free Software Foundation, Inc.          --
+--          Copyright (C) 1998-2006, 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- --
@@ -16,8 +16,8 @@
 -- or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public License --
 -- for  more details.  You should have  received  a copy of the GNU General --
 -- Public License  distributed with GNARL; see file COPYING.  If not, write --
--- to  the Free Software Foundation,  59 Temple Place - Suite 330,  Boston, --
--- MA 02111-1307, USA.                                                      --
+-- to  the  Free Software Foundation,  51  Franklin  Street,  Fifth  Floor, --
+-- Boston, MA 02110-1301, USA.                                              --
 --                                                                          --
 -- As a special exception,  if other files  instantiate  generics from this --
 -- unit, or you link  this unit with other files  to produce an executable, --
@@ -31,8 +31,8 @@
 --                                                                          --
 ------------------------------------------------------------------------------
 
---  This package contains the procedures to implements timeouts (delays)
---  for asynchronous select statements.
+--  This package contains the procedures to implements timeouts (delays) for
+--  asynchronous select statements.
 
 --  Note: the compiler generates direct calls to this interface, via Rtsfind.
 --  Any changes to this interface may require corresponding compiler changes.
@@ -97,11 +97,11 @@ package System.Tasking.Async_Delays is
    type Delay_Block_Access is access all Delay_Block;
 
    function Enqueue_Duration
-     (T : in Duration;
+     (T : Duration;
       D : Delay_Block_Access) return Boolean;
    --  Enqueue the specified relative delay. Returns True if the delay has
-   --  been enqueued, False if it has already expired.
-   --  If the delay has been enqueued, abortion is deferred.
+   --  been enqueued, False if it has already expired. If the delay has been
+   --  enqueued, abort is deferred.
 
    procedure Cancel_Async_Delay (D : Delay_Block_Access);
    --  Cancel the specified asynchronous delay
@@ -117,10 +117,10 @@ package System.Tasking.Async_Delays is
 private
 
    type Delay_Block is record
-      Self_Id     : Task_ID;
+      Self_Id : Task_Id;
       --  ID of the calling task
 
-      Level       : ATC_Level_Base;
+      Level : ATC_Level_Base;
       --  Normally Level is the ATC nesting level of the
       --  async. select statement to which this delay belongs, but
       --  after a call has been dequeued we set it to
@@ -130,10 +130,10 @@ private
       Resume_Time : Duration;
       --  The absolute wake up time, represented as Duration
 
-      Timed_Out   : Boolean := False;
+      Timed_Out : Boolean := False;
       --  Set to true if the delay has timed out
 
-      Succ, Pred  : Delay_Block_Access;
+      Succ, Pred : Delay_Block_Access;
       --  A double linked list
    end record;