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.h | |
| parent | 3b8aab767b942e122caf583493d7cd858c091cde (diff) | |
| download | gcc-07beea0df36b29ef9acb27111eac0b0e92e181a5.zip gcc-07beea0df36b29ef9acb27111eac0b0e92e181a5.tar.gz gcc-07beea0df36b29ef9acb27111eac0b0e92e181a5.tar.bz2 | |
Merge gimple-tuples-branch into mainline.
From-SVN: r119546
Diffstat (limited to 'gcc/fortran/trans.h')
| -rw-r--r-- | gcc/fortran/trans.h | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/gcc/fortran/trans.h b/gcc/fortran/trans.h index f471f09..ed96838 100644 --- a/gcc/fortran/trans.h +++ b/gcc/fortran/trans.h @@ -334,8 +334,12 @@ void gfc_trans_vla_type_sizes (gfc_symbol *, stmtblock_t *); void gfc_add_expr_to_block (stmtblock_t *, tree); /* Add a block to the end of a block. */ void gfc_add_block_to_block (stmtblock_t *, stmtblock_t *); -/* Add a MODIFY_EXPR to a block. */ -void gfc_add_modify_expr (stmtblock_t *, tree, tree); +/* Add a MODIFY_EXPR or a GIMPLE_MODIFY_STMT to a block. */ +void gfc_add_modify (stmtblock_t *, tree, tree, bool); +#define gfc_add_modify_expr(BLOCK, LHS, RHS) \ + gfc_add_modify ((BLOCK), (LHS), (RHS), false) +#define gfc_add_modify_stmt(BLOCK, LHS, RHS) \ + gfc_add_modify ((BLOCK), (LHS), (RHS), true) /* Initialize a statement block. */ void gfc_init_block (stmtblock_t *); |