diff options
Diffstat (limited to 'gcc/ada/s-atocou-builtin.adb')
| -rw-r--r-- | gcc/ada/s-atocou-builtin.adb | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/gcc/ada/s-atocou-builtin.adb b/gcc/ada/s-atocou-builtin.adb index a8ead62..55436aa 100644 --- a/gcc/ada/s-atocou-builtin.adb +++ b/gcc/ada/s-atocou-builtin.adb @@ -64,8 +64,8 @@ package body System.Atomic_Counters is procedure Increment (Item : in out Atomic_Counter) is begin - -- Note: the use of Unrestricted_Access here is required because we - -- are obtaining an access-to-volatile pointer to a non-volatile object. + -- Note: the use of Unrestricted_Access here is required because we are + -- obtaining an access-to-volatile pointer to a non-volatile object. -- This is not allowed for [Unchecked_]Access, but is safe in this case -- because we know that no aliases are being created. |