diff options
| author | Eric Botcazou <ebotcazou@adacore.com> | 2010-04-07 10:51:30 +0000 |
|---|---|---|
| committer | Eric Botcazou <ebotcazou@gcc.gnu.org> | 2010-04-07 10:51:30 +0000 |
| commit | 19c846942984690edb7ef6ed29be08a0aae1868a (patch) | |
| tree | a56f7e63dccef166c29da877181aa337df79443a /gcc/ada/gcc-interface/decl.c | |
| parent | 55ba23c40499d1c964890789b07795a56904164d (diff) | |
| download | gcc-19c846942984690edb7ef6ed29be08a0aae1868a.zip gcc-19c846942984690edb7ef6ed29be08a0aae1868a.tar.gz gcc-19c846942984690edb7ef6ed29be08a0aae1868a.tar.bz2 | |
decl.c (gnat_to_gnu_entity): Set default alignment on the RETURN type built for the Copy-In Copy-Out mechanism.
* gcc-interface/decl.c (gnat_to_gnu_entity) <E_Procedure>: Set default
alignment on the RETURN type built for the Copy-In Copy-Out mechanism.
From-SVN: r158054
Diffstat (limited to 'gcc/ada/gcc-interface/decl.c')
| -rw-r--r-- | gcc/ada/gcc-interface/decl.c | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/gcc/ada/gcc-interface/decl.c b/gcc/ada/gcc-interface/decl.c index 0effe88..0b620a0 100644 --- a/gcc/ada/gcc-interface/decl.c +++ b/gcc/ada/gcc-interface/decl.c @@ -4062,6 +4062,9 @@ gnat_to_gnu_entity (Entity_Id gnat_entity, tree gnu_expr, int definition) gcc_assert (TREE_CODE (gnu_return_type) == VOID_TYPE); gnu_return_type = make_node (RECORD_TYPE); TYPE_NAME (gnu_return_type) = get_identifier ("RETURN"); + /* Set a default alignment to speed up accesses. */ + TYPE_ALIGN (gnu_return_type) + = get_mode_alignment (ptr_mode); has_copy_in_out = true; } |