2007-12-07 Olivier Hainque <hainque@adacore.com>
commit72f6e27c1511d828a4dec7a91488499c149d213c
authorhainque <hainque@138bc75d-0d04-0410-961f-82ee72b054a4>
Fri, 7 Dec 2007 10:50:23 +0000 (7 10:50 +0000)
committerhainque <hainque@138bc75d-0d04-0410-961f-82ee72b054a4>
Fri, 7 Dec 2007 10:50:23 +0000 (7 10:50 +0000)
tree4a1f91a442cfdd5c6bb0f36d7cf1872f25eda846
parentf81207a71959aba2d49077f6925e5a29f72f6dd7
2007-12-07  Olivier Hainque  <hainque@adacore.com>

PR ada/34173
* decl.c (gnat_to_gnu_entity) <case E_Array_Type>: When setting
the alignment on the GCC XUA array type, set TYPE_USER_ALIGN if
this is from an alignment clause on the GNAT entity.
* utils.c (create_field_decl): Rewrite the computation of DECL_ALIGN
to distinguish the case where we set it from the type's alignment.
When so, propagate TYPE_USER_ALIGN into DECL_USER_ALIGN to indicate
whether this alignment was set from an explicit alignment clause.

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@130673 138bc75d-0d04-0410-961f-82ee72b054a4
gcc/ada/ChangeLog
gcc/ada/decl.c
gcc/ada/utils.c
gcc/testsuite/ChangeLog
gcc/testsuite/gnat.dg/unc_memfree.adb [new file with mode: 0644]
gcc/testsuite/gnat.dg/unc_memops.adb [new file with mode: 0644]
gcc/testsuite/gnat.dg/unc_memops.ads [new file with mode: 0644]