exp_ch4.adb (Get_Allocator_Final_List): Freeze anonymous type for chain at once...
authorEd Schonberg <schonberg@adacore.com>
Mon, 4 Aug 2008 09:49:42 +0000 (11:49 +0200)
committerArnaud Charlet <charlet@gcc.gnu.org>
Mon, 4 Aug 2008 09:49:42 +0000 (11:49 +0200)
commit9450205a0ccc2f227a24bc6f5c5c8f3d5ab1c710
treee7547ada839b13810d2b13de0e3cd99cf78ccffe
parentc18b3a998d1d0533759a5071d4309a34848a8ea3
exp_ch4.adb (Get_Allocator_Final_List): Freeze anonymous type for chain at once...

2008-08-04  Ed Schonberg  <schonberg@adacore.com>

* exp_ch4.adb (Get_Allocator_Final_List): Freeze anonymous type for
chain at once, to ensure that type is properly decorated for back-end,
when allocator appears within a loop.

From-SVN: r138597
gcc/ada/exp_ch4.adb