This is the mail archive of the
gcc-cvs@gcc.gnu.org
mailing list for the GCC project.
r154950 - in /trunk/gcc: ada/ChangeLog ada/exp_...
- From: ebotcazou at gcc dot gnu dot org
- To: gcc-cvs at gcc dot gnu dot org
- Date: Thu, 03 Dec 2009 15:11:00 -0000
- Subject: r154950 - in /trunk/gcc: ada/ChangeLog ada/exp_...
Author: ebotcazou
Date: Thu Dec 3 15:10:58 2009
New Revision: 154950
URL: http://gcc.gnu.org/viewcvs?root=gcc&view=rev&rev=154950
Log:
* 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.
Added:
trunk/gcc/testsuite/gnat.dg/controlled5.adb
trunk/gcc/testsuite/gnat.dg/controlled5_pkg.adb
trunk/gcc/testsuite/gnat.dg/controlled5_pkg.ads
Modified:
trunk/gcc/ada/ChangeLog
trunk/gcc/ada/exp_ch3.adb
trunk/gcc/ada/exp_util.adb
trunk/gcc/ada/freeze.adb
trunk/gcc/ada/sem_ch3.adb
trunk/gcc/testsuite/ChangeLog