diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2011-08-04 08:28:33 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2011-08-04 08:28:33 +0000 |
| commit | fe807dac2ef4d84fbe421c81005cd009f7093ba7 (patch) | |
| tree | 6fec0bb0534a1d167b275095381e78a601f19bdc /gcc/ada/exp_ch6.adb | |
| parent | 8db090bd0cc05ab0e996ce33ad3606135df4e6ff (diff) | |
| download | gcc-fe807dac2ef4d84fbe421c81005cd009f7093ba7.tar.gz | |
2011-08-04 Hristian Kirtchev <kirtchev@adacore.com>
* exp_ch4.adb (Expand_Allocator_Expression): Disable the generation of
Set_Finalize_Address_Ptr for CodePeer because Finalize_Address was not
built in the first place.
(Expand_N_Allocator): Disable the generation of Set_Finalize_Address_Ptr
for CodePeer because Finalize_Address was not built to begin with.
* exp_ch6.adb (Make_Build_In_Place_Call_In_Allocator): Ditto.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@177330 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/exp_ch6.adb')
| -rw-r--r-- | gcc/ada/exp_ch6.adb | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/gcc/ada/exp_ch6.adb b/gcc/ada/exp_ch6.adb index eabd3ef086c..1d9544dd9f3 100644 --- a/gcc/ada/exp_ch6.adb +++ b/gcc/ada/exp_ch6.adb @@ -7187,7 +7187,10 @@ package body Exp_Ch6 is then null; - else + -- Do not generate the call to Make_Set_Finalize_Address_Ptr for + -- CodePeer compilations becase Finalize_Address is never built. + + elsif not CodePeer_Mode then Insert_Action (Allocator, Make_Set_Finalize_Address_Ptr_Call (Loc, Typ => Etype (Function_Id), |