exp_aggr.adb (Not_OK_For_Backend): A component of a private type with discriminants...
authorEd Schonberg <schonberg@adacore.com>
Wed, 19 Dec 2007 16:22:56 +0000 (17:22 +0100)
committerArnaud Charlet <charlet@gcc.gnu.org>
Wed, 19 Dec 2007 16:22:56 +0000 (17:22 +0100)
commit4a76b687c424b460021ad90e7ade96e66e4c0bf1
tree526cb12d8201c69d84d1bff38327a77031be30a5
parent10303118b35501a5e2f26fdaf91a3732e10cd9d7
exp_aggr.adb (Not_OK_For_Backend): A component of a private type with discriminants forces expansion of the...

2007-12-19  Ed Schonberg  <schonberg@adacore.com>

* exp_aggr.adb (Not_OK_For_Backend): A component of a private type with
discriminants forces expansion of the aggregate into assignments.
(Init_Record_Controller):  If the type of the aggregate is untagged and
is not inherently limited, the record controller is not limited either.

From-SVN: r131071
gcc/ada/exp_aggr.adb