exp_ch5.adb (Expand_N_Assignment_Statement): When a discriminant check is needed...
commit0bb3bfb8feacd4bec3f0dc82d75cf1ea01d37010
authorGary Dismukes <dismukes@adacore.com>
Wed, 31 Aug 2011 09:02:37 +0000 (31 09:02 +0000)
committerArnaud Charlet <charlet@gcc.gnu.org>
Wed, 31 Aug 2011 09:02:37 +0000 (31 11:02 +0200)
treeb537d5ed4f210cfdb6718b2d5e485201860cb3ee
parent11fa950bd42cde0cd1c7c30b499250d145765561
exp_ch5.adb (Expand_N_Assignment_Statement): When a discriminant check is needed for a left-hand side that is a dereference...

2011-08-31  Gary Dismukes  <dismukes@adacore.com>

* exp_ch5.adb (Expand_N_Assignment_Statement): When a discriminant
check is needed for a left-hand side that is a dereference, and the
base type is private without discriminants (whereas the full type does
have discriminants), an extra retrieval of the underlying type may be
needed in the case where the subtype is a record subtype whose base
type is private. Update comments.

From-SVN: r178362
gcc/ada/ChangeLog
gcc/ada/exp_ch5.adb