summaryrefslogtreecommitdiff
path: root/gcc/ada/s-atocou.ads
diff options
context:
space:
mode:
Diffstat (limited to 'gcc/ada/s-atocou.ads')
-rw-r--r--gcc/ada/s-atocou.ads11
1 files changed, 7 insertions, 4 deletions
diff --git a/gcc/ada/s-atocou.ads b/gcc/ada/s-atocou.ads
index 20ef9e50144..5efcb354847 100644
--- a/gcc/ada/s-atocou.ads
+++ b/gcc/ada/s-atocou.ads
@@ -29,7 +29,10 @@
-- --
------------------------------------------------------------------------------
--- This package provides atomic counter on platforms where it is supported.
+-- This package provides atomic counter on platforms where it is supported:
+-- ??? Please provide a list of such platforms
+
+-- Why isn't this package available to application programs???
package System.Atomic_Counters is
@@ -37,11 +40,11 @@ package System.Atomic_Counters is
type Atomic_Counter is limited private;
-- Type for atomic counter objects. Note, initial value of the counter is
- -- one. This allows to use atomic counter as member of record types when
- -- object of these types are created at library level on preelaboratable
+ -- one. This allows using an atomic counter as member of record types when
+ -- object of these types are created at library level in preelaborable
-- compilation units.
--
- -- Atomic counter is declared as private limited type to provide highest
+ -- Atomic_Counter is declared as private limited type to provide highest
-- level of protection from unexpected use. All available operations are
-- declared below, and this set should be as small as possible.