diff options
| author | Eric Botcazou <ebotcazou@adacore.com> | 2021-03-02 01:04:10 +0100 |
|---|---|---|
| committer | Eric Botcazou <ebotcazou@adacore.com> | 2021-03-02 01:05:38 +0100 |
| commit | 3104dbdcf4a2b7766b5570a0fa2d30157082f04e (patch) | |
| tree | f354c8ae313c915897c2f9bd5cf7e0a0b88ce078 /gcc/config.gcc | |
| parent | 491d5b3cf8216f9285a67aa213b9a66b0035137b (diff) | |
| download | gcc-3104dbdcf4a2b7766b5570a0fa2d30157082f04e.zip gcc-3104dbdcf4a2b7766b5570a0fa2d30157082f04e.tar.gz gcc-3104dbdcf4a2b7766b5570a0fa2d30157082f04e.tar.bz2 | |
Do not call Set_Cloned_Subtype on private type
Build_Discriminated_Subtype may be invoked on a E_Record_Type_With_Private,
in which case it builds a E_Record_Subtype_With_Private which does not have
the Cloned_Subtype field.
gcc/ada/
PR ada/99020
* sem_ch3.adb (Build_Discriminated_Subtype): Set the Cloned_Subtype
only if the type is not private.
Diffstat (limited to 'gcc/config.gcc')
0 files changed, 0 insertions, 0 deletions