diff options
| author | bosch <bosch@138bc75d-0d04-0410-961f-82ee72b054a4> | 2001-12-11 21:24:20 +0000 |
|---|---|---|
| committer | bosch <bosch@138bc75d-0d04-0410-961f-82ee72b054a4> | 2001-12-11 21:24:20 +0000 |
| commit | 8b718dab6c276a48344a37ecbaa5741466f15311 (patch) | |
| tree | 3e640f733e4608234c44262bc8cf7393e393fc6b /gcc/ada/sem_ch3.adb | |
| parent | 17dc84dcaa43096de6ac9785d074c8749bade8a1 (diff) | |
| download | gcc-8b718dab6c276a48344a37ecbaa5741466f15311.tar.gz | |
* 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
Diffstat (limited to 'gcc/ada/sem_ch3.adb')
| -rw-r--r-- | gcc/ada/sem_ch3.adb | 1 |
1 files changed, 1 insertions, 0 deletions
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 |