From: ebotcazou Date: Fri, 8 Apr 2011 20:30:14 +0000 (+0000) Subject: * gcc-interface/decl.c (gnat_to_gnu_entity) : Set minimum X-Git-Url: http://git.ipfire.org/?a=commitdiff_plain;h=6089eb2d19e41b6be99043acbcbdf5add19a7d0b;p=thirdparty%2Fgcc.git * gcc-interface/decl.c (gnat_to_gnu_entity) : Set minimum alignment on fields of the RETURN type built for the Copy-In Copy-Out mechanism. git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@172210 138bc75d-0d04-0410-961f-82ee72b054a4 --- diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog index 2046aa715d98..e16092ff33eb 100644 --- a/gcc/ada/ChangeLog +++ b/gcc/ada/ChangeLog @@ -1,3 +1,9 @@ +2011-04-08 Eric Botcazou + + * gcc-interface/decl.c (gnat_to_gnu_entity) : Set minimum + alignment on fields of the RETURN type built for the Copy-In Copy-Out + mechanism. + 2011-04-08 Eric Botcazou * gcc-interface/trans.c (Identifier_to_gnu): Do not return initializers diff --git a/gcc/ada/gcc-interface/decl.c b/gcc/ada/gcc-interface/decl.c index 29023965fc5c..bc6b9cc7bf34 100644 --- a/gcc/ada/gcc-interface/decl.c +++ b/gcc/ada/gcc-interface/decl.c @@ -4226,6 +4226,9 @@ gnat_to_gnu_entity (Entity_Id gnat_entity, tree gnu_expr, int definition) = create_field_decl (gnu_param_name, gnu_param_type, gnu_return_type, NULL_TREE, NULL_TREE, 0, 0); + /* Set a minimum alignment to speed up accesses. */ + if (DECL_ALIGN (gnu_field) < TYPE_ALIGN (gnu_return_type)) + DECL_ALIGN (gnu_field) = TYPE_ALIGN (gnu_return_type); Sloc_to_locus (Sloc (gnat_param), &DECL_SOURCE_LOCATION (gnu_field)); DECL_CHAIN (gnu_field) = gnu_field_list;