diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2014-08-04 13:17:46 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2014-08-04 13:17:46 +0000 |
| commit | 1fd4313f5a9b23fbc976fafe1055be7a90b73cc7 (patch) | |
| tree | de160f44f4e92149fac97ee73db9bac04386ffea /gcc/ada/s-osprim-mingw.adb | |
| parent | 399464c1c83e9dc51871e3fa4b5afd4e9be512dc (diff) | |
| download | gcc-1fd4313f5a9b23fbc976fafe1055be7a90b73cc7.tar.gz | |
2014-08-04 Robert Dewar <dewar@adacore.com>
* aspects.ads, aspects.adb: Add entries for aspect Obsolescent.
* gnat_rm.texi: Add documentation for aspect Obsolescent.
* sem_ch13.adb (Analyze_Aspect_Specifications): Implement aspect
Obsolescent.
(Check_Aspect_At_Freeze_Point): Add dummy entry for pragma Obsolescent.
* s-osprim-mingw.adb: Minor reformatting.
* sem_res.adb (Is_Atomic_Ref_With_Address): New function
(Resolve_Indexed_Component): Rework warnings for non-atomic access
(Resolve_Selected_Component): Add warnings for non-atomic access.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@213588 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/s-osprim-mingw.adb')
| -rw-r--r-- | gcc/ada/s-osprim-mingw.adb | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/gcc/ada/s-osprim-mingw.adb b/gcc/ada/s-osprim-mingw.adb index a2c466406c4..f8a41dd509c 100644 --- a/gcc/ada/s-osprim-mingw.adb +++ b/gcc/ada/s-osprim-mingw.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- Copyright (C) 1998-2013, Free Software Foundation, Inc. -- +-- Copyright (C) 1998-2014, Free Software Foundation, Inc. -- -- -- -- GNARL is free software; you can redistribute it and/or modify it under -- -- terms of the GNU General Public License as published by the Free Soft- -- @@ -87,15 +87,15 @@ package body System.OS_Primitives is -- the base data for the changes to get undetected. type Signature_Type is mod 2**32; - Signature : Signature_Type := 0; + Signature : Signature_Type := 0; pragma Atomic (Signature); procedure Get_Base_Time (Data : out Clock_Data); -- Retrieve the base time and base ticks. These values will be used by -- clock to compute the current time by adding to it a fraction of the - -- performance counter. This is for the implementation of a - -- high-resolution clock. Note that this routine does not change the base - -- monotonic values used by the monotonic clock. + -- performance counter. This is for the implementation of a high-resolution + -- clock. Note that this routine does not change the base monotonic values + -- used by the monotonic clock. ----------- -- Clock -- |