diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2011-10-15 11:22:01 +0200 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2011-10-15 11:22:01 +0200 |
| commit | 3e452820c3956cbefe3a0547fe51198a882d9e54 (patch) | |
| tree | 96772105a94b5dd2509256c64d5d12042e63189d /gcc/ada/a-cbsyqu.ads | |
| parent | 4650947d66b44b48786a73ac2972ef96f0613565 (diff) | |
| download | gcc-3e452820c3956cbefe3a0547fe51198a882d9e54.zip gcc-3e452820c3956cbefe3a0547fe51198a882d9e54.tar.gz gcc-3e452820c3956cbefe3a0547fe51198a882d9e54.tar.bz2 | |
[multiple changes]
2011-10-15 Bob Duff <duff@adacore.com>
* exp_ch6.adb (Add_Unconstrained_Actuals_To_Build_In_Place_Call):
Do not create a pool formal on unless RE_Root_Storage_Pool_Ptr
is available.
(Expand_N_Extended_Return_Statement): Do not create a renaming of the
build-in-place pool parameter unless RE_Root_Storage_Pool_Ptr is
available.
(Make_Build_In_Place_Call_In_Allocator): Add the user-defined
pool only if RE_Root_Storage_Pool_Ptr is available.
(Make_Build_In_Place_Call_In_Object_Declaration): Do not add a
pool actual unless RE_Root_Storage_Pool_Ptr is available.
* sem_ch6.adb (Create_Extra_Formals): Add build-in-place pool
formal only if RE_Root_Storage_Pool_Ptr is available.
2011-10-15 Matthew Heaney <heaney@adacore.com>
* a-cusyqu.ads, a-cbsyqu.ads, a-cuprqu.ads, a-cbprqu.ads (Queue
type): Specify Priority aspect for protected type.
From-SVN: r180025
Diffstat (limited to 'gcc/ada/a-cbsyqu.ads')
| -rw-r--r-- | gcc/ada/a-cbsyqu.ads | 4 |
1 files changed, 1 insertions, 3 deletions
diff --git a/gcc/ada/a-cbsyqu.ads b/gcc/ada/a-cbsyqu.ads index 8d25359..17b0a5a 100644 --- a/gcc/ada/a-cbsyqu.ads +++ b/gcc/ada/a-cbsyqu.ads @@ -83,9 +83,7 @@ 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 - is new Queue_Interfaces.Queue with + with Priority => Ceiling is new Queue_Interfaces.Queue with overriding entry Enqueue (New_Item : Queue_Interfaces.Element_Type); |