diff options
| author | Robert Dewar <dewar@gnat.com> | 2001-10-31 00:29:14 +0000 |
|---|---|---|
| committer | Geert Bosch <bosch@gcc.gnu.org> | 2001-10-31 01:29:14 +0100 |
| commit | ffc5527fa5cbb518a4bc564b87b8376f5206787f (patch) | |
| tree | 434b2a4945f9ebf97f95c83f9b72b186e7ba6705 | |
| parent | 865335eb760ae8c008bfe63c778737f7d9d04f9c (diff) | |
| download | gcc-ffc5527fa5cbb518a4bc564b87b8376f5206787f.zip gcc-ffc5527fa5cbb518a4bc564b87b8376f5206787f.tar.gz gcc-ffc5527fa5cbb518a4bc564b87b8376f5206787f.tar.bz2 | |
* a-reatim.ads: Minor reformatting
From-SVN: r46664
| -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 96159b7..f12211e 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 563565b..09af01a 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; |