freeze.adb (Statically_Discriminated_Components): Return false if the bounds of the...
authorEd Schonberg <schonberg@adacore.com>
Fri, 17 Feb 2006 16:06:57 +0000 (17:06 +0100)
committerArnaud Charlet <charlet@gcc.gnu.org>
Fri, 17 Feb 2006 16:06:57 +0000 (17:06 +0100)
commit7f9747c61d1bac65d73216c41b83db17cb861561
tree79c3f38e39064cc602b2d0cc4cb3127357149c7a
parentfaad2f7ed698abf82e002d21708979e2b49aac76
freeze.adb (Statically_Discriminated_Components): Return false if the bounds of the type of the discriminant are not static...

2006-02-17  Ed Schonberg  <schonberg@adacore.com>

* freeze.adb (Statically_Discriminated_Components): Return false if
the bounds of the type of the discriminant are not static expressions.

* sem_aggr.adb (Check_Static_Discriminated_Subtype): Return false if
the bounds of the discriminant type are not static.

From-SVN: r111187
gcc/ada/freeze.adb
gcc/ada/sem_aggr.adb