diff options
| author | rguenth <rguenth@138bc75d-0d04-0410-961f-82ee72b054a4> | 2006-01-16 17:27:24 +0000 |
|---|---|---|
| committer | rguenth <rguenth@138bc75d-0d04-0410-961f-82ee72b054a4> | 2006-01-16 17:27:24 +0000 |
| commit | 5c8bd82478049e084c1fa49ec81eb6bbe53c0f50 (patch) | |
| tree | 54da6ca1fe954004643fa7c168386b54825d19ba /gcc/fortran/trans.c | |
| parent | 92f11134fa0f468e3ce8bf544ec38fd4218f1713 (diff) | |
| download | gcc-5c8bd82478049e084c1fa49ec81eb6bbe53c0f50.tar.gz | |
2006-01-16 Richard Guenther <rguenther@suse.de>
* trans-stmt.c (gfc_trans_if_1): Use fold_buildN and build_int_cst.
(gfc_trans_arithmetic_if): Likewise.
(gfc_trans_simple_do): Likewise.
(gfc_trans_do): Likewise.
(gfc_trans_do_while): Likewise.
(gfc_trans_logical_select): Likewise.
(gfc_trans_forall_loop): Likewise.
(generate_loop_for_temp_to_lhs): Likewise.
(generate_loop_for_rhs_to_temp): Likewise.
(gfc_trans_allocate): Likewise.
* trans.c (gfc_add_expr_to_block): Do not fold expr again.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@109756 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/fortran/trans.c')
| -rw-r--r-- | gcc/fortran/trans.c | 4 |
1 files changed, 0 insertions, 4 deletions
diff --git a/gcc/fortran/trans.c b/gcc/fortran/trans.c index 08aeef78d0c..06fcddfac72 100644 --- a/gcc/fortran/trans.c +++ b/gcc/fortran/trans.c @@ -359,10 +359,6 @@ gfc_add_expr_to_block (stmtblock_t * block, tree expr) if (expr == NULL_TREE || IS_EMPTY_STMT (expr)) return; - if (TREE_CODE (expr) != STATEMENT_LIST - && TREE_CODE_CLASS (TREE_CODE (expr)) != tcc_statement) - expr = fold (expr); - if (block->head) { if (TREE_CODE (block->head) != STATEMENT_LIST) |