diff options
Diffstat (limited to 'gcc/ada/a-cusyqu.ads')
| -rw-r--r-- | gcc/ada/a-cusyqu.ads | 10 |
1 files changed, 4 insertions, 6 deletions
diff --git a/gcc/ada/a-cusyqu.ads b/gcc/ada/a-cusyqu.ads index 98337a03587..c4f9d7f7d59 100644 --- a/gcc/ada/a-cusyqu.ads +++ b/gcc/ada/a-cusyqu.ads @@ -44,11 +44,11 @@ generic package Ada.Containers.Unbounded_Synchronized_Queues is pragma Preelaborate; - -- All identifiers in this unit are implementation defined + package Implementation is - pragma Implementation_Defined; + -- All identifiers in this unit are implementation defined - package Implementation is + pragma Implementation_Defined; type List_Type is tagged limited private; @@ -86,9 +86,7 @@ package Ada.Containers.Unbounded_Synchronized_Queues is end Implementation; protected type Queue (Ceiling : System.Any_Priority := Default_Ceiling) - -- ??? - -- with Priority => Ceiling is new Queue_Interfaces.Queue with - is new Queue_Interfaces.Queue with + with Priority => Ceiling is new Queue_Interfaces.Queue with overriding entry Enqueue (New_Item : Queue_Interfaces.Element_Type); |