exp_ch3.adb (Build_Init_Procedure): Keep separate the initialization of tagged types...
authorEd Schonberg <schonberg@adacore.com>
Mon, 15 Oct 2007 13:54:47 +0000 (15:54 +0200)
committerArnaud Charlet <charlet@gcc.gnu.org>
Mon, 15 Oct 2007 13:54:47 +0000 (15:54 +0200)
commitae7adb1b554f9a17421c74f45a727e90ef87682e
treea3a7a6630623f316fce1d067b798e3a7d2fa8dc1
parent3192631e2438b31b79d6aa9873b6ed83417af857
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
gcc/ada/exp_ch3.adb