[Ada] Minor reformatting.

[bosch at gnat dot com]

Comments only, not tested. Checked in for Robert.

  -Geert

2001-10-30  Robert Dewar <dewar@gnat.com>

	* a-reatim.ads: Minor reformatting

*** a-reatim.ads	2001/10/17 03:23:43	1.25
--- a-reatim.ads	2001/10/17 09:36:32	1.26
***************
*** 88,98 ****
     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.
  
!    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;
--- 88,99 ----
     function Microseconds (US : Integer) return Time_Span;
     function Milliseconds (MS : Integer) return Time_Span;
  
!    --  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;
  
     procedure Split (T : Time; SC : out Seconds_Count; TS : out Time_Span);
     function Time_Of (SC : Seconds_Count; TS : Time_Span) return Time;