2005-03-29 Ed Schonberg <schonberg@adacore.com>
authorcharlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4>
Tue, 29 Mar 2005 16:16:25 +0000 (16:16 +0000)
committercharlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4>
Tue, 29 Mar 2005 16:16:25 +0000 (16:16 +0000)
commit28ee5edd662cc6e500317869291043602c2cd73d
tree6f7aa357a3a82fdd054ec438326beaa3f3799de8
parent35403645e4f1fb9242f9fb2aab432e4045eb2d0f
2005-03-29  Ed Schonberg  <schonberg@adacore.com>

* freeze.adb (Freeze_Record_Type): If the type of the component is an
itype whose parent is controlled and not yet frozen, do not create a
freeze node for the itype if expansion is disabled.

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@97174 138bc75d-0d04-0410-961f-82ee72b054a4
gcc/ada/freeze.adb