]> gcc.gnu.org Git - gcc.git/commit - gcc/ada/freeze.adb
exp_util.adb (Make_CW_Equivalent_Type): Set the Is_Class_Wide_Equivalent_Type flag...
authorEric Botcazou <ebotcazou@gcc.gnu.org>
Thu, 3 Dec 2009 15:10:58 +0000 (15:10 +0000)
committerEric Botcazou <ebotcazou@gcc.gnu.org>
Thu, 3 Dec 2009 15:10:58 +0000 (15:10 +0000)
commit80fa46179c1975ea1c8eaabaa2ab23d4b0269357
tree38a7f7a6df807eb6be54895eaac6ba1d026d395a
parentcf9eb56580e4ebabff35cfa5484ece3c86f1120c
exp_util.adb (Make_CW_Equivalent_Type): Set the Is_Class_Wide_Equivalent_Type flag here in lieu of...

* exp_util.adb (Make_CW_Equivalent_Type): Set the
Is_Class_Wide_Equivalent_Type flag here in lieu of...
(Make_Subtype_From_Expr): ...here.
* exp_ch3.adb (Expand_Freeze_Record_Type): Do not set
Has_Controlled_Component on class-wide equivalent types.
* freeze.adb (Freeze_Record_Type): Likewise.
* sem_ch3.adb (Record_Type_Definition): Likewise.

From-SVN: r154950
gcc/ada/ChangeLog
gcc/ada/exp_ch3.adb
gcc/ada/exp_util.adb
gcc/ada/freeze.adb
gcc/ada/sem_ch3.adb
gcc/testsuite/ChangeLog
gcc/testsuite/gnat.dg/controlled5.adb [new file with mode: 0644]
gcc/testsuite/gnat.dg/controlled5_pkg.adb [new file with mode: 0644]
gcc/testsuite/gnat.dg/controlled5_pkg.ads [new file with mode: 0644]
This page took 0.063947 seconds and 5 git commands to generate.