r135979 - /trunk/gcc/ada/sem_ch3.adb

[charlet@gcc.gnu.org]

Author: charlet
Date: Tue May 27 08:50:04 2008
New Revision: 135979

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

	* sem_ch3.adb (Fixup_Bad_Constraint): Set the Etype on the bad subtype
	to the known type entity E, rather than setting it to Any_Type. Fixes
	possible blowup in function Base_Init_Proc, as called from Freeze_Entity
	for objects whose type had an illegal constraint.


Modified:
    trunk/gcc/ada/sem_ch3.adb