Skip to content
Snippets Groups Projects
Commit ae7adb1b authored by Ed Schonberg's avatar Ed Schonberg Committed by Arnaud Charlet
Browse files

exp_ch3.adb (Build_Init_Procedure): Keep separate the initialization of tagged... 

exp_ch3.adb (Build_Init_Procedure): Keep separate the initialization of tagged types whose ultimate ancestor is a...

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.

From-SVN: r129323
parent 3192631e
Hide whitespace changes
Inline Side-by-side
Showing
with 27 additions and 10 deletions
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment