summaryrefslogtreecommitdiff
path: root/gcc/ada/a-sytaco.ads
diff options
context:
space:
mode:
Diffstat (limited to 'gcc/ada/a-sytaco.ads')
-rw-r--r--gcc/ada/a-sytaco.ads16
1 files changed, 5 insertions, 11 deletions
diff --git a/gcc/ada/a-sytaco.ads b/gcc/ada/a-sytaco.ads
index 798ce33584d..5e6315cdba5 100644
--- a/gcc/ada/a-sytaco.ads
+++ b/gcc/ada/a-sytaco.ads
@@ -35,22 +35,15 @@
-- --
------------------------------------------------------------------------------
-pragma Warnings (Off);
--- Allow withing of non-Preelaborated units in Ada 2005 mode where this
--- package will be implicitly categorized as Preelaborate. See AI-362 for
--- details. It is safe in the context of the run-time to violate the rules!
-
with System.Task_Primitives;
-- Used for Suspension_Object
with Ada.Finalization;
-- Used for Limited_Controlled
-pragma Warnings (On);
-
package Ada.Synchronous_Task_Control is
-pragma Preelaborate_05 (Synchronous_Task_Control);
--- In accordance with Ada 2005 AI-362
+ pragma Preelaborate_05;
+ -- In accordance with Ada 2005 AI-362
type Suspension_Object is limited private;
@@ -71,12 +64,13 @@ private
-- Finalization for Suspension_Object
type Suspension_Object is
- new Ada.Finalization.Limited_Controlled with record
+ new Ada.Finalization.Limited_Controlled with
+ record
SO : System.Task_Primitives.Suspension_Object;
-- Use low-level suspension objects so that the synchronization
-- functionality provided by this object can be achieved using
-- efficient operating system primitives.
- end record;
+ end record;
pragma Inline (Set_True);
pragma Inline (Set_False);