r129323 - /trunk/gcc/ada/exp_ch3.adb

[charlet@gcc.gnu.org]

Author: charlet
Date: Mon Oct 15 13:54:47 2007
New Revision: 129323

URL: http://gcc.gnu.org/viewcvs?root=gcc&view=rev&rev=129323
Log:
2007-10-15  Ed Schonberg  <schonberg@adacore.com>

	* exp_ch3.adb (Build_Init_Procedure): Keep separate the initialization
	of tagged types whose ultimate ancestor is a CPP type.
	(Freeze_Array_Type): For a packed array type, generate an initialization
	procedure if the type is public, to handle properly a client that
	specifies Normalize_Scalars.


Modified:
    trunk/gcc/ada/exp_ch3.adb