sem_ch7.adb (New_Private_Type): Set Is_Tagged_Type flag before processing discriminan...
authorEd Schonberg <schonber@gnat.com>
Wed, 5 Dec 2001 01:43:31 +0000 (01:43 +0000)
committerGeert Bosch <bosch@gcc.gnu.org>
Wed, 5 Dec 2001 01:43:31 +0000 (02:43 +0100)
commitc0def2adcc412435120f1b4e5cb7749aa0491bec
treeec4cdad4a6c00dd66fd4145cb13b57eb9462931d
parent0626ef8add9823d3f8714e3a00d6372ba4f4ff4a
sem_ch7.adb (New_Private_Type): Set Is_Tagged_Type flag before processing discriminants to diagnose illegal...

* sem_ch7.adb (New_Private_Type): Set Is_Tagged_Type flag before
processing discriminants to diagnose illegal default values.

From-SVN: r47645
gcc/ada/ChangeLog
gcc/ada/sem_ch7.adb