diff options
Diffstat (limited to 'gcc/ada/s-atocou.adb')
| -rw-r--r-- | gcc/ada/s-atocou.adb | 9 |
1 files changed, 3 insertions, 6 deletions
diff --git a/gcc/ada/s-atocou.adb b/gcc/ada/s-atocou.adb index 87e7818..2897c6c 100644 --- a/gcc/ada/s-atocou.adb +++ b/gcc/ada/s-atocou.adb @@ -29,12 +29,9 @@ -- -- ------------------------------------------------------------------------------ --- This is dummy version of the package, for use on platforms where this --- capability is not supported. Any use of any of the routines in this --- package will raise Program_Error. - --- Why don't we use pragma Unimplemented_Unit in a dummy spec, this would --- seem much more useful than raising an exception at run time ??? +-- This is version of the package, for use on platforms where this capability +-- is not supported. All Atomic_Counter operations raises Program_Error, +-- Atomic_Unsigned operations processed in non-atomic manner. package body System.Atomic_Counters is |