From: Hristian Kirtchev Date: Mon, 12 Dec 2011 13:40:18 +0000 (+0000) Subject: exp_ch4.adb (Expand_N_Allocator): Update the master of an anonymous access-to-control... X-Git-Tag: releases/gcc-4.7.0~1606 X-Git-Url: http://git.ipfire.org/?a=commitdiff_plain;h=ad5a445d3ecbc55dd7775e1e3df2f7cbcd967a0d;p=thirdparty%2Fgcc.git exp_ch4.adb (Expand_N_Allocator): Update the master of an anonymous access-to-controlled type to utilize the... 2011-12-12 Hristian Kirtchev * exp_ch4.adb (Expand_N_Allocator): Update the master of an anonymous access-to-controlled type to utilize the heterogeneous master associated with the current unit. From-SVN: r182239 --- diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog index 8ccc29bbbe70..a3679ddbbdc7 100644 --- a/gcc/ada/ChangeLog +++ b/gcc/ada/ChangeLog @@ -1,3 +1,9 @@ +2011-12-12 Hristian Kirtchev + + * exp_ch4.adb (Expand_N_Allocator): Update the master of an + anonymous access-to-controlled type to utilize the heterogeneous + master associated with the current unit. + 2011-12-12 Ed Schonberg * sem_ch6.adb (Analyze_Expression_Function): If the function diff --git a/gcc/ada/exp_ch4.adb b/gcc/ada/exp_ch4.adb index 12980a74ad4a..f45ea08bdf95 100644 --- a/gcc/ada/exp_ch4.adb +++ b/gcc/ada/exp_ch4.adb @@ -3510,11 +3510,10 @@ package body Exp_Ch4 is -- The finalization master must be inserted and analyzed as part of -- the current semantic unit. This form of expansion is not carried - -- out in Alfa mode because it is useless. + -- out in Alfa mode because it is useless. Note that the master is + -- updated when analysis changes current units. - if No (Finalization_Master (PtrT)) - and then not Alfa_Mode - then + if not Alfa_Mode then Set_Finalization_Master (PtrT, Current_Anonymous_Master); end if; end if;