From 3110415b773bb07dc6a09bdb5f934f4a643a2ff2 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Tobias=20Schl=C3=BCter?= Date: Thu, 20 Aug 2009 20:47:51 +0200 Subject: [PATCH] * trans-stmt.c (gfc_trans_do): Add a few missing folds. From-SVN: r150969 --- gcc/fortran/ChangeLog | 4 ++++ gcc/fortran/trans-stmt.c | 8 ++++---- 2 files changed, 8 insertions(+), 4 deletions(-) diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index 3a8dd03c8f1..6fde5a48b73 100644 --- a/gcc/fortran/ChangeLog +++ b/gcc/fortran/ChangeLog @@ -1,3 +1,7 @@ +2009-08-20 Tobias Schlüter + + * trans-stmt.c (gfc_trans_do): Add a few missing folds. + 2009-08-20 Michael Matz PR fortran/41126 diff --git a/gcc/fortran/trans-stmt.c b/gcc/fortran/trans-stmt.c index 66aecb19520..1ae841f0971 100644 --- a/gcc/fortran/trans-stmt.c +++ b/gcc/fortran/trans-stmt.c @@ -1017,8 +1017,8 @@ gfc_trans_do (gfc_code * code) tmp = fold_convert (utype, tmp); tmp = fold_build2 (TRUNC_DIV_EXPR, utype, tmp, fold_convert (utype, step)); - tmp = build2 (MODIFY_EXPR, void_type_node, countm1, tmp); - pos = build2 (COMPOUND_EXPR, void_type_node, pos, tmp); + tmp = fold_build2 (MODIFY_EXPR, void_type_node, countm1, tmp); + pos = fold_build2 (COMPOUND_EXPR, void_type_node, pos, tmp); tmp = fold_build2 (GT_EXPR, boolean_type_node, to, from); neg = fold_build3 (COND_EXPR, void_type_node, tmp, @@ -1029,8 +1029,8 @@ gfc_trans_do (gfc_code * code) tmp = fold_build2 (TRUNC_DIV_EXPR, utype, tmp, fold_convert (utype, fold_build1 (NEGATE_EXPR, type, step))); - tmp = build2 (MODIFY_EXPR, void_type_node, countm1, tmp); - neg = build2 (COMPOUND_EXPR, void_type_node, neg, tmp); + tmp = fold_build2 (MODIFY_EXPR, void_type_node, countm1, tmp); + neg = fold_build2 (COMPOUND_EXPR, void_type_node, neg, tmp); tmp = fold_build3 (COND_EXPR, void_type_node, pos_step, pos, neg); gfc_add_expr_to_block (&block, tmp);