From 5c8bd82478049e084c1fa49ec81eb6bbe53c0f50 Mon Sep 17 00:00:00 2001 From: rguenth Date: Mon, 16 Jan 2006 17:27:24 +0000 Subject: 2006-01-16 Richard Guenther * 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 --- gcc/fortran/trans.c | 4 ---- 1 file changed, 4 deletions(-) (limited to 'gcc/fortran/trans.c') 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) -- cgit v1.2.1