OSDN Git Service
(root)
/
pf3gnuchains
/
gcc-fork.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
2005-03-08 Robert Dewar <dewar@adacore.com>
[pf3gnuchains/gcc-fork.git]
/
gcc
/
ada
/
a-reatim.ads
diff --git
a/gcc/ada/a-reatim.ads
b/gcc/ada/a-reatim.ads
index
ae5249f
..
c8f9750
100644
(file)
--- a/
gcc/ada/a-reatim.ads
+++ b/
gcc/ada/a-reatim.ads
@@
-6,7
+6,7
@@
-- --
-- S p e c --
-- --
-- --
-- S p e c --
-- --
--- Copyright (C) 1992-200
2
Free Software Foundation, Inc. --
+-- Copyright (C) 1992-200
5
Free Software Foundation, Inc. --
-- --
-- This specification is derived from the Ada Reference Manual for use with --
-- GNAT. The copyright notice above, and the license provisions that follow --
-- --
-- This specification is derived from the Ada Reference Manual for use with --
-- GNAT. The copyright notice above, and the license provisions that follow --
@@
-86,6
+86,12
@@
package Ada.Real_Time is
function Microseconds (US : Integer) return Time_Span;
function Milliseconds (MS : Integer) return Time_Span;
function Microseconds (US : Integer) return Time_Span;
function Milliseconds (MS : Integer) return Time_Span;
+ function Seconds (S : Integer) return Time_Span;
+ pragma Ada_05 (Seconds);
+
+ function Minutes (M : Integer) return Time_Span;
+ pragma Ada_05 (Minutes);
+
-- 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
-- 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
@@
-126,4
+132,10
@@
private
pragma Import (Intrinsic, ">=");
pragma Import (Intrinsic, "abs");
pragma Import (Intrinsic, ">=");
pragma Import (Intrinsic, "abs");
+ pragma Inline (Microseconds);
+ pragma Inline (Milliseconds);
+ pragma Inline (Nanoseconds);
+ pragma Inline (Seconds);
+ pragma Inline (Minutes);
+
end Ada.Real_Time;
end Ada.Real_Time;