OSDN Git Service

* einfo.ads (Size_Depends_On_Discriminant): Adjust description.
authorebotcazou <ebotcazou@138bc75d-0d04-0410-961f-82ee72b054a4>
Thu, 24 Mar 2011 16:08:50 +0000 (16:08 +0000)
committerebotcazou <ebotcazou@138bc75d-0d04-0410-961f-82ee72b054a4>
Thu, 24 Mar 2011 16:08:50 +0000 (16:08 +0000)
commit4524d1ceff28dd267d78bdd3e18bffd5d88db30a
treeb9005d8dcb786199a152d4e3d91717ba40010452
parent5f515621d4459b5d84f5640e0993611cbd008f3c
* einfo.ads (Size_Depends_On_Discriminant): Adjust description.
* layout.adb (Compute_Size_Depends_On_Discriminant): New procedure
to compute Set_Size_Depends_On_Discriminant.
(Layout_Type): Call it on array types in back-end layout mode.
* sem_util.adb (Requires_Transient_Scope): Return true for array
types only if the size depends on the value of discriminants.
* gcc-interface/utils2.c (build_binary_op) <MODIFY_EXPR>: Use the RHS
type if the RHS is a call to a function that returns an unconstrained
type with default discriminant.

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@171402 138bc75d-0d04-0410-961f-82ee72b054a4
gcc/ada/ChangeLog
gcc/ada/einfo.ads
gcc/ada/gcc-interface/utils2.c
gcc/ada/layout.adb
gcc/ada/sem_util.adb
gcc/testsuite/ChangeLog
gcc/testsuite/gnat.dg/array16.adb [new file with mode: 0644]
gcc/testsuite/gnat.dg/array16.ads [new file with mode: 0644]
gcc/testsuite/gnat.dg/array16_pkg.ads [new file with mode: 0644]