diff options
Diffstat (limited to 'gcc/ada/a-sytaco.ads')
-rw-r--r-- | gcc/ada/a-sytaco.ads | 16 |
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); |