diff options
| -rw-r--r-- | gcc/ada/ChangeLog | 4 | ||||
| -rw-r--r-- | gcc/ada/a-reatim.ads | 9 |
2 files changed, 9 insertions, 4 deletions
diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog index 96159b7d035..f12211edf15 100644 --- a/gcc/ada/ChangeLog +++ b/gcc/ada/ChangeLog @@ -1,5 +1,9 @@ 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 undocumented declarations. diff --git a/gcc/ada/a-reatim.ads b/gcc/ada/a-reatim.ads index 563565bc663..09af01a660d 100644 --- 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; |