Commit 19f0436b by Arnaud Charlet Committed by Pierre-Marie de Rodat

[Ada] Atomic aspect on formal generic params now supported in Ada 202x mode

2019-12-18  Arnaud Charlet  <charlet@adacore.com>

gcc/ada/

	* libgnat/s-atopar.ads, libgnat/s-atopex.ads (Atomic_Type): Can
	now be marked Atomic. This requires marking the unit Ada 202x.

From-SVN: r279516
parent 5815f92a
2019-12-18 Arnaud Charlet <charlet@adacore.com> 2019-12-18 Arnaud Charlet <charlet@adacore.com>
* libgnat/s-atopar.ads, libgnat/s-atopex.ads (Atomic_Type): Can
now be marked Atomic. This requires marking the unit Ada 202x.
2019-12-18 Arnaud Charlet <charlet@adacore.com>
* libgnat/a-nbnbin.ads, libgnat/a-nbnbin.adb, * libgnat/a-nbnbin.ads, libgnat/a-nbnbin.adb,
libgnat/a-nbnbre.ads, libgnat/a-nbnbre.adb: Replace libgnat/a-nbnbre.ads, libgnat/a-nbnbre.adb: Replace
Optional_Big_* types by a simple check and exception raise in Optional_Big_* types by a simple check and exception raise in
......
...@@ -29,8 +29,10 @@ ...@@ -29,8 +29,10 @@
-- -- -- --
------------------------------------------------------------------------------ ------------------------------------------------------------------------------
pragma Ada_2020;
generic generic
type Atomic_Type is range <>; -- ??? with Atomic; type Atomic_Type is range <> with Atomic;
package System.Atomic_Operations.Arithmetic package System.Atomic_Operations.Arithmetic
with Pure with Pure
-- Nonblocking -- Nonblocking
......
...@@ -29,8 +29,10 @@ ...@@ -29,8 +29,10 @@
-- -- -- --
------------------------------------------------------------------------------ ------------------------------------------------------------------------------
pragma Ada_2020;
generic generic
type Atomic_Type is private; -- with Atomic; type Atomic_Type is private with Atomic;
package System.Atomic_Operations.Exchange package System.Atomic_Operations.Exchange
with Pure with Pure
-- Blocking -- Blocking
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment