sem_ch3.adb (Build_Private_Derived_Type): Set Has_Private_Ancestor on type derived...
authorEd Schonberg <schonberg@adacore.com>
Fri, 4 Jan 2013 09:21:55 +0000 (09:21 +0000)
committerArnaud Charlet <charlet@gcc.gnu.org>
Fri, 4 Jan 2013 09:21:55 +0000 (10:21 +0100)
commit33bd17e742dc4956590a6ff8d2676f1c8eaf305f
tree29f6c9ea9bb03ebae458ad5bad97ea6dc9873839
parent5ee96c9da4b521cd593ef2db444bb0337802c184
sem_ch3.adb (Build_Private_Derived_Type): Set Has_Private_Ancestor on type derived from an untagged private type whose...

2013-01-04  Ed Schonberg  <schonberg@adacore.com>

* sem_ch3.adb (Build_Private_Derived_Type): Set
Has_Private_Ancestor on type derived from an untagged private
type whose full view has discriminants
* sem_aggr.adb (Resolve_Record_Aggregate): Reject non-extension
aggregate for untagged record type with private ancestor.

From-SVN: r194892
gcc/ada/ChangeLog
gcc/ada/sem_aggr.adb
gcc/ada/sem_ch3.adb