]> git.ipfire.org Git - thirdparty/gcc.git/commit
ada: Fix infinite loop with aggregate in generic unit
authorEric Botcazou <ebotcazou@adacore.com>
Thu, 20 Mar 2025 22:29:33 +0000 (23:29 +0100)
committerEric Botcazou <ebotcazou@adacore.com>
Tue, 10 Jun 2025 08:58:37 +0000 (10:58 +0200)
commit8a4b72a2d99918d6bc315f2664a22457b9848ce7
treedfd0853f5bb0c033492109e617dabac4f67f1d1a
parent2859883e8901f5db7b26c07f823e2e8bc531a70d
ada: Fix infinite loop with aggregate in generic unit

Root_Type does not return the same type for the private and the full view of
a derived private tagged type when both derive from an interface type.

gcc/ada/ChangeLog:

* sem_ch12.adb (Copy_Generic_Node): Do not call Root_Type to find
the root type of an aggregate of a derived tagged type.
gcc/ada/sem_ch12.adb