diff options
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 eabd3ef..1d9544d 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), |