diff options
| author | Aldy Hernandez <aldyh@redhat.com> | 2006-12-05 17:26:05 +0000 |
|---|---|---|
| committer | Aldy Hernandez <aldyh@gcc.gnu.org> | 2006-12-05 17:26:05 +0000 |
| commit | 07beea0df36b29ef9acb27111eac0b0e92e181a5 (patch) | |
| tree | 32d3ee1ddfcad180d619d756a84eeb0df779a6a2 /gcc/fortran/trans.c | |
| parent | 3b8aab767b942e122caf583493d7cd858c091cde (diff) | |
| download | gcc-07beea0df36b29ef9acb27111eac0b0e92e181a5.tar.gz | |
Merge gimple-tuples-branch into mainline.
From-SVN: r119546
Diffstat (limited to 'gcc/fortran/trans.c')
| -rw-r--r-- | gcc/fortran/trans.c | 11 |
1 files changed, 7 insertions, 4 deletions
diff --git a/gcc/fortran/trans.c b/gcc/fortran/trans.c index 69a702e6034..3040319f14e 100644 --- a/gcc/fortran/trans.c +++ b/gcc/fortran/trans.c @@ -140,11 +140,13 @@ gfc_evaluate_now (tree expr, stmtblock_t * pblock) } -/* Build a MODIFY_EXPR node and add it to a given statement block PBLOCK. - A MODIFY_EXPR is an assignment: LHS <- RHS. */ +/* Build a MODIFY_EXPR (or GIMPLE_MODIFY_STMT) node and add it to a + given statement block PBLOCK. A MODIFY_EXPR is an assignment: + LHS <- RHS. */ void -gfc_add_modify_expr (stmtblock_t * pblock, tree lhs, tree rhs) +gfc_add_modify (stmtblock_t * pblock, tree lhs, tree rhs, + bool tuples_p) { tree tmp; @@ -157,7 +159,8 @@ gfc_add_modify_expr (stmtblock_t * pblock, tree lhs, tree rhs) || AGGREGATE_TYPE_P (TREE_TYPE (lhs))); #endif - tmp = fold_build2 (MODIFY_EXPR, void_type_node, lhs, rhs); + tmp = fold_build2 (tuples_p ? GIMPLE_MODIFY_STMT : MODIFY_EXPR, + void_type_node, lhs, rhs); gfc_add_expr_to_block (pblock, tmp); } |