r135622 - /trunk/gcc/ada/exp_ch5.adb

[charlet@gcc.gnu.org]

Author: charlet
Date: Tue May 20 12:45:38 2008
New Revision: 135622

URL: http://gcc.gnu.org/viewcvs?root=gcc&view=rev&rev=135622
Log:
2008-05-20  Ed Schonberg  <schonberg@adacore.com>

	* exp_ch5.adb (Expand_Assign_Record): Within an initialization
	procedure for a derived type retrieve the discriminant values from the
	parent using the corresponding discriminant.
	(Expand_N_Assignment_Statement): Skip generation of implicit
	if-statement associated with controlled types if we are
	compiling with restriction No_Finalization.

Modified:
    trunk/gcc/ada/exp_ch5.adb