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

[charlet@gcc.gnu.org]

Author: charlet
Date: Mon May 26 15:15:14 2008
New Revision: 135938

URL: http://gcc.gnu.org/viewcvs?root=gcc&view=rev&rev=135938
Log:
2008-05-26  Gary Dismukes  <dismukes@adacore.com>

	* exp_ch3.adb (Build_Array_Init_Proc): Only set Init_Proc to a dummy
	init proc entity when there is actual default initialization associated
	with the component type, to avoid spurious errors on objects of scalar
	array types that are marked Is_Public when No_Default_Initialization
	applies.
	

Modified:
    trunk/gcc/ada/exp_ch3.adb