diff options
| author | Eric Botcazou <ebotcazou@adacore.com> | 2012-12-08 11:57:15 +0000 |
|---|---|---|
| committer | Eric Botcazou <ebotcazou@gcc.gnu.org> | 2012-12-08 11:57:15 +0000 |
| commit | 54625ca1213528d64717d1a95163a2613151beb7 (patch) | |
| tree | f1385a8610ac4efc56aa70d4c3ef83d6015783ca /gcc/ada/gcc-interface/trans.c | |
| parent | a2ce7808e4763ebbcea9d9369a5a506cddd90dea (diff) | |
| download | gcc-54625ca1213528d64717d1a95163a2613151beb7.zip gcc-54625ca1213528d64717d1a95163a2613151beb7.tar.gz gcc-54625ca1213528d64717d1a95163a2613151beb7.tar.bz2 | |
trans.c (Subprogram_Body_to_gnu): Be prepared for a by-ref VAR_DECL in the case of an Out parameter passed by copy.
* gcc-interface/trans.c (Subprogram_Body_to_gnu): Be prepared for a
by-ref VAR_DECL in the case of an Out parameter passed by copy.
From-SVN: r194321
Diffstat (limited to 'gcc/ada/gcc-interface/trans.c')
| -rw-r--r-- | gcc/ada/gcc-interface/trans.c | 10 |
1 files changed, 8 insertions, 2 deletions
diff --git a/gcc/ada/gcc-interface/trans.c b/gcc/ada/gcc-interface/trans.c index 291d00f..f1398e2 100644 --- a/gcc/ada/gcc-interface/trans.c +++ b/gcc/ada/gcc-interface/trans.c @@ -3375,16 +3375,22 @@ Subprogram_Body_to_gnu (Node_Id gnat_node) if (!present_gnu_tree (gnat_param)) { tree gnu_cico_entry = gnu_cico_list; + tree gnu_decl; /* Skip any entries that have been already filled in; they must correspond to In Out parameters. */ while (gnu_cico_entry && TREE_VALUE (gnu_cico_entry)) gnu_cico_entry = TREE_CHAIN (gnu_cico_entry); + /* Do any needed dereferences for by-ref objects. */ + gnu_decl = gnat_to_gnu_entity (gnat_param, NULL_TREE, 1); + gcc_assert (DECL_P (gnu_decl)); + if (DECL_BY_REF_P (gnu_decl)) + gnu_decl = build_unary_op (INDIRECT_REF, NULL_TREE, gnu_decl); + /* Do any needed references for padded types. */ TREE_VALUE (gnu_cico_entry) - = convert (TREE_TYPE (TREE_PURPOSE (gnu_cico_entry)), - gnat_to_gnu_entity (gnat_param, NULL_TREE, 1)); + = convert (TREE_TYPE (TREE_PURPOSE (gnu_cico_entry)), gnu_decl); } } else |