diff options
author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2014-07-18 09:14:14 +0000 |
---|---|---|
committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2014-07-18 09:14:14 +0000 |
commit | d9dccd7f548e6b5c55c89626620780d5c96009be (patch) | |
tree | cf519b8d632a0ac0dfb99c88827df7604ad03241 /gcc/ada/a-reatim.ads | |
parent | addd4a7e253c7ba64ed5f85d6fff29bdea1e10cc (diff) | |
download | gcc-d9dccd7f548e6b5c55c89626620780d5c96009be.tar.gz |
2014-07-18 Robert Dewar <dewar@adacore.com>
* par_sco.adb, a-reatim.ads, exp_attr.adb, sem_util.adb: Minor
reformatting.
2014-07-18 Robert Dewar <dewar@adacore.com>
* einfo.ads, einfo.adb (Has_Out_Or_In_Out_Parameter): New flag and
function.
(Set_Has_Out_Or_In_Out_Parameter): New procedure.
* sem_ch6.adb (Set_Formal_Mode): Set Has_Out_Or_In_Out_Parameter flag.
* sem_res.adb (Resolve_Call): Error if call of Ada 2012 function
with OUT or IN OUT from earlier Ada mode (e.g. Ada 2005)
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@212780 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/a-reatim.ads')
-rw-r--r-- | gcc/ada/a-reatim.ads | 13 |
1 files changed, 6 insertions, 7 deletions
diff --git a/gcc/ada/a-reatim.ads b/gcc/ada/a-reatim.ads index 2c86289a614..084c1ef0593 100644 --- a/gcc/ada/a-reatim.ads +++ b/gcc/ada/a-reatim.ads @@ -6,7 +6,7 @@ -- -- -- S p e c -- -- -- --- Copyright (C) 1992-2009, Free Software Foundation, Inc. -- +-- Copyright (C) 1992-2014, 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 -- @@ -90,10 +90,9 @@ package Ada.Real_Time is 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 - -- 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; @@ -121,8 +120,8 @@ private Time_Span (System.Task_Primitives.Operations.RT_Resolution); -- Time and Time_Span are represented in 64-bit Duration value in - -- in nanoseconds. For example, 1 second and 1 nanosecond is - -- represented as the stored integer 1_000_000_001. + -- nanoseconds. For example, 1 second and 1 nanosecond is represented + -- as the stored integer 1_000_000_001. pragma Import (Intrinsic, "<"); pragma Import (Intrinsic, "<="); |