diff options
| author | Eric Botcazou <ebotcazou@adacore.com> | 2015-06-19 20:10:50 +0000 |
|---|---|---|
| committer | Eric Botcazou <ebotcazou@gcc.gnu.org> | 2015-06-19 20:10:50 +0000 |
| commit | b24f7345365c9faea98acfb1e145f3efe943f8d1 (patch) | |
| tree | 57fbd1f7dca579febe84e8afbe2f72fa7d1e432f /gcc/ada/gcc-interface/trans.c | |
| parent | 1539357d45345b583fa613b79e9ccdc35de0527b (diff) | |
| download | gcc-b24f7345365c9faea98acfb1e145f3efe943f8d1.zip gcc-b24f7345365c9faea98acfb1e145f3efe943f8d1.tar.gz gcc-b24f7345365c9faea98acfb1e145f3efe943f8d1.tar.bz2 | |
decl.c (gnat_to_gnu_entity): Make sure the size of a padding type built around the return type is positive.
* gcc-interface/decl.c (gnat_to_gnu_entity) <E_Function>: Make sure
the size of a padding type built around the return type is positive.
* gcc-interface/trans.c (gnat_to_gnu) <N_Simple_Return_Statement>:
Use INIT_EXPR instead of MODIFY_EXPR to assign to the return object.
From-SVN: r224697
Diffstat (limited to 'gcc/ada/gcc-interface/trans.c')
| -rw-r--r-- | gcc/ada/gcc-interface/trans.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/gcc/ada/gcc-interface/trans.c b/gcc/ada/gcc-interface/trans.c index 85a77ea5..418f923 100644 --- a/gcc/ada/gcc-interface/trans.c +++ b/gcc/ada/gcc-interface/trans.c @@ -6861,7 +6861,7 @@ gnat_to_gnu (Node_Id gnat_node) tree gnu_ret_deref = build_unary_op (INDIRECT_REF, TREE_TYPE (gnu_ret_val), gnu_ret_obj); - gnu_result = build2 (MODIFY_EXPR, void_type_node, + gnu_result = build2 (INIT_EXPR, void_type_node, gnu_ret_deref, gnu_ret_val); add_stmt_with_node (gnu_result, gnat_node); gnu_ret_val = NULL_TREE; |