diff options
author | Richard Guenther <rguenther@suse.de> | 2006-01-16 17:27:24 +0000 |
---|---|---|
committer | Richard Biener <rguenth@gcc.gnu.org> | 2006-01-16 17:27:24 +0000 |
commit | 61ead1351f094cfab41940ea093b88d1ec6dcde6 (patch) | |
tree | 54da6ca1fe954004643fa7c168386b54825d19ba /gcc/fortran/trans.c | |
parent | cd6e7e7d5945b71e7c803644a8b45e17cbff5a1e (diff) | |
download | gcc-61ead1351f094cfab41940ea093b88d1ec6dcde6.zip gcc-61ead1351f094cfab41940ea093b88d1ec6dcde6.tar.gz gcc-61ead1351f094cfab41940ea093b88d1ec6dcde6.tar.bz2 |
trans-stmt.c (gfc_trans_if_1): Use fold_buildN and build_int_cst.
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.
From-SVN: r109756
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 08aeef7..06fcddf 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) |