OSDN Git Service

* exp_util.adb (Make_CW_Equivalent_Type): Set the
authorebotcazou <ebotcazou@138bc75d-0d04-0410-961f-82ee72b054a4>
Thu, 3 Dec 2009 15:10:58 +0000 (15:10 +0000)
committerebotcazou <ebotcazou@138bc75d-0d04-0410-961f-82ee72b054a4>
Thu, 3 Dec 2009 15:10:58 +0000 (15:10 +0000)
commitaab874cec78e1099844472ad81ffed8bc86ffa16
tree38a7f7a6df807eb6be54895eaac6ba1d026d395a
parent4ff973937cb2f91188c989737015f799eb81ba01
* 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.

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@154950 138bc75d-0d04-0410-961f-82ee72b054a4
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]