]> git.ipfire.org Git - thirdparty/gcc.git/commit
ada: Missing adjust of controlled component initialized from container aggregate
authorGary Dismukes <dismukes@adacore.com>
Wed, 26 Jun 2024 22:00:49 +0000 (22:00 +0000)
committerMarc Poulhiès <dkm@gcc.gnu.org>
Thu, 1 Aug 2024 15:14:35 +0000 (17:14 +0200)
commitf92d4b5fd84a2b37f62639188df7104da67e755e
treed0bb638d80fa96fdfa5bfb5de0a2081d9856f54b
parent7b1ad03b84fdd727b695da59703debd676c93f2e
ada: Missing adjust of controlled component initialized from container aggregate

In the case of controlled components initialized by a container aggregate,
the compiler was suppressing the call to the needed Adjust operation,
because it was suppressed for all aggregates. But container aggregates
aren't built in place, so target adjustment should still be done in that
case.

gcc/ada/

* exp_ch3.adb (Build_Record_Init_Proc.Build_Assignment): Do the
component adjustment in the case of initialization by a container
aggregate.
gcc/ada/exp_ch3.adb