From 3104dbdcf4a2b7766b5570a0fa2d30157082f04e Mon Sep 17 00:00:00 2001 From: Eric Botcazou Date: Tue, 2 Mar 2021 01:04:10 +0100 Subject: 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. --- gcc/ada/sem_ch3.adb | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'gcc/ada') diff --git a/gcc/ada/sem_ch3.adb b/gcc/ada/sem_ch3.adb index c01bce1..4c7b8e7 100644 --- a/gcc/ada/sem_ch3.adb +++ b/gcc/ada/sem_ch3.adb @@ -10493,7 +10493,7 @@ package body Sem_Ch3 is then Create_Constrained_Components (Def_Id, Related_Nod, T, Elist); - else + elsif not Is_Private_Type (T) then Set_Cloned_Subtype (Def_Id, T); end if; end if; -- cgit v1.1