From 8b718dab6c276a48344a37ecbaa5741466f15311 Mon Sep 17 00:00:00 2001 From: bosch Date: Tue, 11 Dec 2001 21:24:20 +0000 Subject: * checks.adb (Insert_Valid_Check): Apply validity check to expression of conversion, not to result of conversion. * sem_ch3.adb (Build_Derived_Record_Type): set Controlled flag before freezing parent. If the declarations are mutually recursive, an access to the current record type may be frozen before the derivation is complete. git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@47894 138bc75d-0d04-0410-961f-82ee72b054a4 --- gcc/ada/sem_ch3.adb | 1 + 1 file changed, 1 insertion(+) (limited to 'gcc/ada/sem_ch3.adb') diff --git a/gcc/ada/sem_ch3.adb b/gcc/ada/sem_ch3.adb index 154c2347c6d..dff460cfca2 100644 --- a/gcc/ada/sem_ch3.adb +++ b/gcc/ada/sem_ch3.adb @@ -5032,6 +5032,7 @@ package body Sem_Ch3 is Set_Size_Info (Derived_Type, Parent_Type); Set_RM_Size (Derived_Type, RM_Size (Parent_Type)); Set_Convention (Derived_Type, Convention (Parent_Type)); + Set_Is_Controlled (Derived_Type, Is_Controlled (Parent_Type)); Set_First_Rep_Item (Derived_Type, First_Rep_Item (Parent_Type)); case Ekind (Parent_Type) is -- cgit v1.2.1