diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2011-10-13 10:43:52 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2011-10-13 10:43:52 +0000 |
| commit | 3295b1fa6f2976b279bd5770a48aaae5dbeb5f2c (patch) | |
| tree | 6084b399269b8db763f9195e3dae8b9830eead87 /gcc/ada/sem_ch6.adb | |
| parent | aa1f8c8b11620fd1a1d65405d79e1aad1ac7a280 (diff) | |
| download | gcc-3295b1fa6f2976b279bd5770a48aaae5dbeb5f2c.tar.gz | |
2011-10-13 Fedor Rybin <frybin@adacore.com>
* gnat_ugn.texi: Add gnattest section.
2011-10-13 Ed Schonberg <schonberg@adacore.com>
* freeze.adb: Do not create body of renaming if declaration has
errors.
2011-10-13 Olivier Hainque <hainque@adacore.com>
* init.c (__gnat_error_handler - vxworks case): Restrict sigtramp calls
further, to the ppc+kernel case only.
2011-10-13 Hristian Kirtchev <kirtchev@adacore.com>
* exp_ch4.adb (Expand_N_Allocator): Comment reformatting.
* exp_ch6.adb (Add_Unconstrained_Actuals_To_Build_In_Place_Call):
Do not create a pool formal on .NET/JVM.
(Expand_N_Extended_Return_Statement): Alphabetize local
variables. Do not create a renaming of the build-in-place pool
parameter on .NET/JVM. (Make_Build_In_Place_Call_In_Allocator):
Add the user-defined pool only on non-VM targets.
(Make_Build_In_Place_Call_In_Object_Declaration): Alphabetize
local variables. Do not add a pool actual on .NET/JVM.
* sem_ch6.adb: Add with and use clause for Targparm.
(Create_Extra_Formals): Add build-in-place pool formal only on
non-VM targets.
* rtsfind.ads: Alphabetize entries.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@179906 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/sem_ch6.adb')
| -rw-r--r-- | gcc/ada/sem_ch6.adb | 17 |
1 files changed, 10 insertions, 7 deletions
diff --git a/gcc/ada/sem_ch6.adb b/gcc/ada/sem_ch6.adb index 26dac7789d5..2e9c97f90ae 100644 --- a/gcc/ada/sem_ch6.adb +++ b/gcc/ada/sem_ch6.adb @@ -78,6 +78,7 @@ with Snames; use Snames; with Stringt; use Stringt; with Style; with Stylesw; use Stylesw; +with Targparm; use Targparm; with Tbuild; use Tbuild; with Uintp; use Uintp; with Urealp; use Urealp; @@ -6483,14 +6484,16 @@ package body Sem_Ch6 is (E, Standard_Natural, E, BIP_Formal_Suffix (BIP_Alloc_Form)); - -- Whenever we need BIP_Alloc_Form, we also need - -- BIP_Storage_Pool, in case BIP_Alloc_Form indicates to use a - -- user-defined pool. + -- 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. - Discard := - Add_Extra_Formal - (E, RTE (RE_Root_Storage_Pool_Ptr), - E, BIP_Formal_Suffix (BIP_Storage_Pool)); + if VM_Target = No_VM then + Discard := + Add_Extra_Formal + (E, RTE (RE_Root_Storage_Pool_Ptr), + E, BIP_Formal_Suffix (BIP_Storage_Pool)); + end if; end if; -- In the case of functions whose result type needs finalization, |