gcc/gcc/ada sem_eval.adb

Mon Jul 4 13:29:00 GMT 2005

CVSROOT:	/cvs/gcc
Module name:	gcc
Changes by:	charlet@gcc.gnu.org	2005-07-04 13:29:58

Modified files:
	gcc/ada        : sem_eval.adb 

Log message:
	2005-07-04  Gary Dismukes  <dismukes@adacore.com>
	
	* sem_eval.adb (Subtypes_Statically_Match): Use the discriminant
	constraint of full view of a private view T1 if present, when T2 is a
	discriminated full view.

Patches:
http://gcc.gnu.org/cgi-bin/cvsweb.cgi/gcc/gcc/ada/sem_eval.adb.diff?cvsroot=gcc&r1=1.20&r2=1.21