mirror/gcc
2
0
Fork 0
mirror of git://gcc.gnu.org/git/gcc.git synced 2025-01-31 17:30:21 +08:00
Code Issues Packages Projects Releases Wiki Activity

* a-reatim.ads: Minor reformatting

Browse Source 
From-SVN: r46664
This commit is contained in:
Robert Dewar 2001-10-31 00:29:14 +00:00 committed by Geert Bosch
parent 865335eb76
commit ffc5527fa5
2 changed files with 9 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
gcc/ada/ChangeLog
View File

@ -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

9
gcc/ada/a-reatim.ads
View File

@ -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;