From 491016e57014542fa5f69d27d2c944c5c6bd5289 Mon Sep 17 00:00:00 2001 From: Gary Dismukes Date: Tue, 27 May 2008 10:50:04 +0200 Subject: [PATCH] sem_ch3.adb (Fixup_Bad_Constraint): Set the Etype on the bad subtype to the known type entity E... 2008-05-27 Gary Dismukes * sem_ch3.adb (Fixup_Bad_Constraint): Set the Etype on the bad subtype to the known type entity E, rather than setting it to Any_Type. Fixes possible blowup in function Base_Init_Proc, as called from Freeze_Entity for objects whose type had an illegal constraint. From-SVN: r135979 --- gcc/ada/sem_ch3.adb | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/gcc/ada/sem_ch3.adb b/gcc/ada/sem_ch3.adb index a3f036ade25..9fb7e944b2b 100644 --- a/gcc/ada/sem_ch3.adb +++ b/gcc/ada/sem_ch3.adb @@ -10186,7 +10186,9 @@ package body Sem_Ch3 is Set_Ekind (Def_Id, Subtype_Kind (Ekind (T))); end if; - Set_Etype (Def_Id, Any_Type); + -- Set Etype to the known type, to reduce chances of cascaded errors + + Set_Etype (Def_Id, E); Set_Error_Posted (Def_Id); end Fixup_Bad_Constraint; -- 2.30.2