mirror/gcc
2
0
Fork 0
mirror of git://gcc.gnu.org/git/gcc.git synced 2025-03-23 12:10:57 +08:00
Code Issues Packages Projects Releases Wiki Activity

exp_ch4.adb (Expand_N_Allocator): Update the master of an anonymous access-to-controlled type to utilize the...

Browse Source 
2011-12-12  Hristian Kirtchev  <kirtchev@adacore.com>

	* 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
This commit is contained in:
Hristian Kirtchev 2011-12-12 13:40:18 +00:00 committed by Arnaud Charlet
parent 83d5afb779
commit ad5a445d3e
2 changed files with 9 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
gcc/ada/ChangeLog
View File

@ -1,3 +1,9 @@
2011-12-12 Hristian Kirtchev <kirtchev@adacore.com>
* 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 <schonberg@adacore.com>
* sem_ch6.adb (Analyze_Expression_Function): If the function

7
gcc/ada/exp_ch4.adb
View File

@ -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;