[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

diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog
index 5ca9b97430f730272046d6e3a9adf25c021add31..891ac96fcd4bb4b865d1d1ab409f73ccdbc59620 100644 (file)
--- a/gcc/ada/ChangeLog
+++ b/gcc/ada/ChangeLog
@@ -1,3 +1,23 @@
+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.
+
 2011-10-14  Ed Schonberg  <schonberg@adacore.com>
 
        * exp_disp.adb (Check_Premature_Freezing): If an untagged type

diff --git a/gcc/ada/a-cbprqu.ads b/gcc/ada/a-cbprqu.ads
index 0d0f16891911eb4d60b5e0ba06fcd800335aba9a..d8a53f27918af0d8e5cb9cdfdb21b965207e7465 100644 (file)
--- a/gcc/ada/a-cbprqu.ads
+++ b/gcc/ada/a-cbprqu.ads
@@ -101,9 +101,7 @@ 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
-   is new Queue_Interfaces.Queue with
+     with Priority => Ceiling is new Queue_Interfaces.Queue with
 
       overriding
       entry Enqueue (New_Item : Queue_Interfaces.Element_Type);

diff --git a/gcc/ada/a-cbsyqu.ads b/gcc/ada/a-cbsyqu.ads
index 8d25359469d31e74996f3eedc54704d544060c30..17b0a5a6a41706d710b2333886c5c4510a7ad635 100644 (file)
--- 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);

diff --git a/gcc/ada/a-cuprqu.ads b/gcc/ada/a-cuprqu.ads
index 33db4a281f37a4c1911eb3b37a2c400b813e9f71..f7d4d4c71d657051f1a088926872a6733c533f43 100644 (file)
--- a/gcc/ada/a-cuprqu.ads
+++ b/gcc/ada/a-cuprqu.ads
@@ -100,9 +100,7 @@ package Ada.Containers.Unbounded_Priority_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);

diff --git a/gcc/ada/a-cusyqu.ads b/gcc/ada/a-cusyqu.ads
index 98337a03587610f6d6aa985a799da603015c88dc..20e584d70c6c4d17735aa8476cf1c6510592253d 100644 (file)
--- a/gcc/ada/a-cusyqu.ads
+++ b/gcc/ada/a-cusyqu.ads
@@ -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);

diff --git a/gcc/ada/exp_ch6.adb b/gcc/ada/exp_ch6.adb
index 035c433abab5e96c9839b702e29a693bcebc6508..17b72cf231b49246d28d59cc4030b3df60657cb6 100644 (file)
--- a/gcc/ada/exp_ch6.adb
+++ b/gcc/ada/exp_ch6.adb
@@ -311,10 +311,12 @@ package body Exp_Ch6 is
       Add_Extra_Actual_To_Call
         (Function_Call, Alloc_Form_Formal, Alloc_Form_Actual);
 
-      --  Pass the Storage_Pool parameter. This parameter is omitted on .NET
-      --  and JVM as those targets do not support pools.
+      --  Pass the Storage_Pool parameter. This parameter is omitted
+      --  .NET/JVM/ZFP as those targets do not support pools.
 
-      if VM_Target = No_VM then
+      if
+        VM_Target = No_VM and then RTE_Available (RE_Root_Storage_Pool_Ptr)
+      then
          Pool_Formal := Build_In_Place_Formal (Function_Id, BIP_Storage_Pool);
          Analyze_And_Resolve (Pool_Actual, Etype (Pool_Formal));
          Add_Extra_Actual_To_Call
@@ -5241,10 +5243,12 @@ package body Exp_Ch6 is
                      Pool_Allocator := New_Copy_Tree (Heap_Allocator);
 
                      --  Do not generate the renaming of the build-in-place
-                     --  pool parameter on .NET/JVM because the parameter is
-                     --  not created in the first place.
+                     --  pool parameter on .NET/JVM/ZFP because the parameter
+                     --  is not created in the first place.
 
-                     if VM_Target = No_VM then
+                     if VM_Target = No_VM and then
+                       RTE_Available (RE_Root_Storage_Pool_Ptr)
+                     then
                         Pool_Decl :=
                           Make_Object_Renaming_Declaration (Loc,
                             Defining_Identifier => Pool_Id,
@@ -8137,7 +8141,9 @@ package body Exp_Ch6 is
          --  has an unconstrained or tagged result type).
 
          if Needs_BIP_Alloc_Form (Enclosing_Func) then
-            if VM_Target = No_VM then
+            if VM_Target = No_VM and then
+              RTE_Available (RE_Root_Storage_Pool_Ptr)
+            then
                Pool_Actual :=
                  New_Reference_To (Build_In_Place_Formal
                    (Enclosing_Func, BIP_Storage_Pool), Loc);

diff --git a/gcc/ada/sem_ch6.adb b/gcc/ada/sem_ch6.adb
index 4ebf9672f8fb15314a3c2b6402419f70ac9ef490..6cf630aeb050ac32cf5d9e4b7b9eb20a79c09707 100644 (file)
--- a/gcc/ada/sem_ch6.adb
+++ b/gcc/ada/sem_ch6.adb
@@ -6487,10 +6487,12 @@ package body Sem_Ch6 is
                     E, BIP_Formal_Suffix (BIP_Alloc_Form));
 
                --  Add BIP_Storage_Pool, in case BIP_Alloc_Form indicates to
-               --  use a user-defined pool. This formal is not added on .NET
-               --  and JVM as those targets do not support pools.
+               --  use a user-defined pool. This formal is not added on
+               --  .NET/JVM/ZFP as those targets do not support pools.
 
-               if VM_Target = No_VM then
+               if VM_Target = No_VM and then
+                 RTE_Available (RE_Root_Storage_Pool_Ptr)
+               then
                   Discard :=
                     Add_Extra_Formal
                       (E, RTE (RE_Root_Storage_Pool_Ptr),