r135620 - /trunk/gcc/ada/exp_aggr.adb

[charlet@gcc.gnu.org]

Author: charlet
Date: Tue May 20 12:45:15 2008
New Revision: 135620

URL: http://gcc.gnu.org/viewcvs?root=gcc&view=rev&rev=135620
Log:
2008-05-20  Javier Miranda  <miranda@adacore.com>

	* exp_aggr.adb
	(Build_Record_Aggr_Code): Fix wrong tests checking progenitors. Previous
	tests did not covered the case in which the type of the aggregate has
	no progenitors but some its parents has progenitors.


Modified:
    trunk/gcc/ada/exp_aggr.adb