sem_eval.adb (Subtypes_Statically_Match): Use the discriminant constraint of full...
authorGary Dismukes <dismukes@adacore.com>
Mon, 4 Jul 2005 13:29:58 +0000 (15:29 +0200)
committerArnaud Charlet <charlet@gcc.gnu.org>
Mon, 4 Jul 2005 13:29:58 +0000 (15:29 +0200)
commitc2bf339e6b769c71653b255148ae8386b19c229c
tree502c62296b3bdfd81a7e5b4fcec232f330d3f6f0
parent9dcb52e145b7b6eb52c71d14f797e82fae9c32cd
sem_eval.adb (Subtypes_Statically_Match): Use the discriminant constraint of full view of a private view T1 if present...

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.

From-SVN: r101589
gcc/ada/sem_eval.adb