diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2013-07-08 09:52:49 +0200 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2013-07-08 09:52:49 +0200 |
| commit | b2c28399143ad6bebd4a5af6818c000bb69a6226 (patch) | |
| tree | 770aa0e2ec3731ba1eb6873e8e21ae8095a96301 /gcc/ada/a-cbsyqu.ads | |
| parent | a530b8bb19dfadc48d8848259a8f91580ef0c9b3 (diff) | |
| download | gcc-b2c28399143ad6bebd4a5af6818c000bb69a6226.zip gcc-b2c28399143ad6bebd4a5af6818c000bb69a6226.tar.gz gcc-b2c28399143ad6bebd4a5af6818c000bb69a6226.tar.bz2 | |
[multiple changes]
2013-07-08 Hristian Kirtchev <kirtchev@adacore.com>
* exp_ch4.adb (Create_Alternative): Removed.
(Expand_N_If_Expression): Remove constant
In_Case_Or_If_Expression. Add local variable
Ptr_Typ. Inspect the "then" and "else" action lists
for transient controlled objects and generate code to
finalize them. (Is_Controlled_Function_Call): Removed.
(Process_Action): Update the comment on usage. Update the call
to Process_Transient_Object. There is no need to continue the
traversal of the object itself.
(Process_Actions): New routine.
(Process_Transient_Object): Moved to the top level of Exp_Ch4. Add
a new formal and update the related comment on usage.
* exp_util.adb (Within_Case_Or_If_Expression): Start the search
from the parent of the node.
2013-07-08 Robert Dewar <dewar@adacore.com>
* a-cusyqu.ads, a-cbprqu.ads, s-interr.ads, a-cuprqu.ads,
a-cbsyqu.ads: Minor reformatting (proper formatting of overriding).
From-SVN: r200759
Diffstat (limited to 'gcc/ada/a-cbsyqu.ads')
| -rw-r--r-- | gcc/ada/a-cbsyqu.ads | 20 |
1 files changed, 8 insertions, 12 deletions
diff --git a/gcc/ada/a-cbsyqu.ads b/gcc/ada/a-cbsyqu.ads index 0d6e3c3..9084639 100644 --- a/gcc/ada/a-cbsyqu.ads +++ b/gcc/ada/a-cbsyqu.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 -- @@ -83,24 +83,20 @@ package Ada.Containers.Bounded_Synchronized_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); - 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_Synchronized_Queues; |