diff options
Diffstat (limited to 'gcc/ada/a-cbprqu.ads')
| -rw-r--r-- | gcc/ada/a-cbprqu.ads | 21 |
1 files changed, 8 insertions, 13 deletions
diff --git a/gcc/ada/a-cbprqu.ads b/gcc/ada/a-cbprqu.ads index aa184a1cc5a..fb44d02c1dd 100644 --- a/gcc/ada/a-cbprqu.ads +++ b/gcc/ada/a-cbprqu.ads @@ -6,7 +6,7 @@ -- -- -- S p e c -- -- -- --- Copyright (C) 2011, Free Software Foundation, Inc. -- +-- Copyright (C) 2011-2013, Free Software Foundation, Inc. -- -- -- -- This specification is derived from the Ada Reference Manual for use with -- -- GNAT. The copyright notice above, and the license provisions that follow -- @@ -101,13 +101,13 @@ package Ada.Containers.Bounded_Priority_Queues is protected type Queue (Capacity : Count_Type := Default_Capacity; Ceiling : System.Any_Priority := Default_Ceiling) - with Priority => Ceiling is new Queue_Interfaces.Queue with + with + Priority => Ceiling + is new Queue_Interfaces.Queue with - overriding - entry Enqueue (New_Item : Queue_Interfaces.Element_Type); + overriding entry Enqueue (New_Item : Queue_Interfaces.Element_Type); - overriding - entry Dequeue (Element : out Queue_Interfaces.Element_Type); + overriding entry Dequeue (Element : out Queue_Interfaces.Element_Type); -- The priority queue operation Dequeue_Only_High_Priority had been a -- protected entry in early drafts of AI05-0159, but it was discovered @@ -116,22 +116,17 @@ package Ada.Containers.Bounded_Priority_Queues is -- ARG meeting in Edinburgh (June 2011), with a different signature and -- semantics. - not overriding procedure Dequeue_Only_High_Priority (At_Least : Queue_Priority; Element : in out Queue_Interfaces.Element_Type; Success : out Boolean); - overriding - function Current_Use return Count_Type; + overriding function Current_Use return Count_Type; - overriding - function Peak_Use return Count_Type; + overriding function Peak_Use return Count_Type; private - List : Implementation.List_Type (Capacity); - end Queue; end Ada.Containers.Bounded_Priority_Queues; |