Index: a-reatim.ads
===================================================================
RCS file: /cvs/gcc/gcc/gcc/ada/a-reatim.ads,v
retrieving revision 1.7
diff -u -p -r1.7 a-reatim.ads
--- a-reatim.ads	21 Oct 2003 13:41:53 -0000	1.7
+++ a-reatim.ads	15 Mar 2005 13:54:50 -0000
@@ -6,7 +6,7 @@
 --                                                                          --
 --                                  S p e c                                 --
 --                                                                          --
---          Copyright (C) 1992-2002 Free Software Foundation, Inc.          --
+--          Copyright (C) 1992-2005 Free Software Foundation, Inc.          --
 --                                                                          --
 -- This specification is derived from the Ada Reference Manual for use with --
 -- GNAT. The copyright notice above, and the license provisions that follow --
@@ -86,6 +86,12 @@ package Ada.Real_Time is
    function Microseconds (US : Integer) return Time_Span;
    function Milliseconds (MS : Integer) return Time_Span;
 
+   function Seconds (S : Integer) return Time_Span;
+   pragma Ada_05 (Seconds);
+
+   function Minutes (M : Integer) return Time_Span;
+   pragma Ada_05 (Minutes);
+
    --  Seconds_Count needs 64 bits, since Time has the full range of
    --  Duration. The delta of Duration is 10 ** (-9), so the maximum
    --  number of seconds is 2**63/10**9 = 8*10**9 which does not quite
@@ -126,4 +132,10 @@ private
    pragma Import (Intrinsic, ">=");
    pragma Import (Intrinsic, "abs");
 
+   pragma Inline (Microseconds);
+   pragma Inline (Milliseconds);
+   pragma Inline (Nanoseconds);
+   pragma Inline (Seconds);
+   pragma Inline (Minutes);
+
 end Ada.Real_Time;
Index: a-reatim.adb
===================================================================
RCS file: /cvs/gcc/gcc/gcc/ada/a-reatim.adb,v
retrieving revision 1.7
diff -u -p -r1.7 a-reatim.adb
--- a-reatim.adb	21 Oct 2003 13:41:53 -0000	1.7
+++ a-reatim.adb	15 Mar 2005 13:54:50 -0000
@@ -7,7 +7,7 @@
 --                                 B o d y                                  --
 --                                                                          --
 --             Copyright (C) 1991-1994, Florida State University            --
---             Copyright (C) 1995-2003, Ada Core Technologies               --
+--             Copyright (C) 1995-2005, Ada Core Technologies               --
 --                                                                          --
 -- 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- --
@@ -154,6 +154,15 @@ package body Ada.Real_Time is
       return Time_Span_Unit * MS * 1_000_000;
    end Milliseconds;
 
+   -------------
+   -- Minutes --
+   -------------
+
+   function Minutes (M : Integer) return Time_Span is
+   begin
+      return Milliseconds (M) * Integer'(60_000);
+   end Minutes;
+
    -----------------
    -- Nanoseconds --
    -----------------
@@ -163,6 +172,15 @@ package body Ada.Real_Time is
       return Time_Span_Unit * NS;
    end Nanoseconds;
 
+   -------------
+   -- Seconds --
+   -------------
+
+   function Seconds (S : Integer) return Time_Span is
+   begin
+      return Milliseconds (S) * Integer'(1000);
+   end Seconds;
+
    -----------
    -- Split --
    -----------
Index: a-retide.ads
===================================================================
RCS file: /cvs/gcc/gcc/gcc/ada/a-retide.ads,v
retrieving revision 1.5
diff -u -p -r1.5 a-retide.ads
--- a-retide.ads	21 Oct 2003 13:41:54 -0000	1.5
+++ a-retide.ads	15 Mar 2005 13:54:50 -0000
@@ -6,7 +6,7 @@
 --                                                                          --
 --                                  S p e c                                 --
 --                                                                          --
---          Copyright (C) 1992-2003, Free Software Foundation, Inc.         --
+--          Copyright (C) 1992-2005, 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- --
@@ -39,11 +39,12 @@
 package Ada.Real_Time.Delays is
 
    function To_Duration (T : Real_Time.Time) return Duration;
+   --  Convert Time to Duration
 
    procedure Delay_Until (T : Time);
    --  Delay until Clock has reached (at least) time T,
    --  or the task is aborted to at least the current ATC nesting level.
    --  The body of this procedure must perform all the processing
-   --  required for an abortion point.
+   --  required for an abort point.
 
 end Ada.Real_Time.Delays;