trans-stmt.c (gfc_trans_return): Put back in the handling of se.post, now in the correct place.
2010-07-22 Daniel Kraft <d@domob.eu> * trans-stmt.c (gfc_trans_return): Put back in the handling of se.post, now in the correct place. From-SVN: r162409
This commit is contained in:
parent
14ee5f0ae2
commit
ba3ff5c2db
|
@ -1,3 +1,8 @@
|
||||||
|
2010-07-22 Daniel Kraft <d@domob.eu>
|
||||||
|
|
||||||
|
* trans-stmt.c (gfc_trans_return): Put back in the handling of se.post,
|
||||||
|
now in the correct place.
|
||||||
|
|
||||||
2010-07-21 Steven G. Kargl <kargl@gcc.gnu.org>
|
2010-07-21 Steven G. Kargl <kargl@gcc.gnu.org>
|
||||||
|
|
||||||
PR fortran/44929
|
PR fortran/44929
|
||||||
|
|
|
@ -517,9 +517,13 @@ gfc_trans_return (gfc_code * code)
|
||||||
|
|
||||||
gfc_conv_expr (&se, code->expr1);
|
gfc_conv_expr (&se, code->expr1);
|
||||||
|
|
||||||
|
/* Note that the actually returned expression is a simple value and
|
||||||
|
does not depend on any pointers or such; thus we can clean-up with
|
||||||
|
se.post before returning. */
|
||||||
tmp = fold_build2 (MODIFY_EXPR, TREE_TYPE (result), result,
|
tmp = fold_build2 (MODIFY_EXPR, TREE_TYPE (result), result,
|
||||||
fold_convert (TREE_TYPE (result), se.expr));
|
fold_convert (TREE_TYPE (result), se.expr));
|
||||||
gfc_add_expr_to_block (&se.pre, tmp);
|
gfc_add_expr_to_block (&se.pre, tmp);
|
||||||
|
gfc_add_block_to_block (&se.pre, &se.post);
|
||||||
|
|
||||||
tmp = gfc_generate_return ();
|
tmp = gfc_generate_return ();
|
||||||
gfc_add_expr_to_block (&se.pre, tmp);
|
gfc_add_expr_to_block (&se.pre, tmp);
|
||||||
|
|
Loading…
Reference in New Issue