* a-reatim.ads: Minor reformatting

From-SVN: r46664

diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog
index 96159b7d035709ff8e4ba11d7d9531137024f58a..f12211edf15738302f73f2c423712b6092b1537c 100644 (file)
--- a/gcc/ada/ChangeLog
+++ b/gcc/ada/ChangeLog
@@ -1,3 +1,7 @@
+2001-10-30  Robert Dewar <dewar@gnat.com>
+
+       * a-reatim.ads: Minor reformatting
+
 2001-10-30  Robert Dewar <dewar@gnat.com>
 
        * gnatdll.adb: Minor reformatting throughout. Many ??? added for 

diff --git a/gcc/ada/a-reatim.ads b/gcc/ada/a-reatim.ads
index 563565bc6631cf434ee64471f3054df38f9074d0..09af01a660de5b57a3f96b540fc0d067ffe25c40 100644 (file)
--- a/gcc/ada/a-reatim.ads
+++ b/gcc/ada/a-reatim.ads
@@ -88,11 +88,12 @@ package Ada.Real_Time is
    function Microseconds (US : Integer) return Time_Span;
    function Milliseconds (MS : Integer) return Time_Span;
 
-   --  With duration represented as a 64-bit number with a delta of
-   --  10 ** (-9), the number of seconds in Duration'Last does not fit
-   --  in 32 bits.
+   --  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
+   --  fit in 32 bits.
 
-   type Seconds_Count is  range -2 ** 63 .. 2 ** 63 - 1;
+   type Seconds_Count is range -2 ** 63 .. 2 ** 63 - 1;
 
    procedure Split (T : Time; SC : out Seconds_Count; TS : out Time_Span);
    function Time_Of (SC : Seconds_Count; TS : Time_Span) return Time;