From 1ac262625dcecb15e3d50a29da1b2965865ab863 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Tobias=20Schl=C3=BCter?= Date: Sun, 13 Feb 2005 16:32:45 +0100 Subject: trans-stmt.c (generate_loop_for_temp_to_lhs, [...]): Remove if whose condition is always true. * trans-stmt.c (generate_loop_for_temp_to_lhs, generate_loop_for_rhs_to_temp): Remove if whose condition is always true. From-SVN: r94985 --- gcc/fortran/trans-stmt.c | 12 ++++-------- 1 file changed, 4 insertions(+), 8 deletions(-) (limited to 'gcc/fortran/trans-stmt.c') diff --git a/gcc/fortran/trans-stmt.c b/gcc/fortran/trans-stmt.c index 7a55cbc..da074c8 100644 --- a/gcc/fortran/trans-stmt.c +++ b/gcc/fortran/trans-stmt.c @@ -1578,10 +1578,8 @@ generate_loop_for_temp_to_lhs (gfc_expr *expr, tree tmp1, tree size, /* Form the mask expression according to the mask tree list. */ if (wheremask) { - tmp2 = wheremask; - if (tmp2 != NULL) - wheremaskexpr = gfc_build_array_ref (tmp2, count3); - tmp2 = TREE_CHAIN (tmp2); + wheremaskexpr = gfc_build_array_ref (wheremask, count3); + tmp2 = TREE_CHAIN (wheremask); while (tmp2) { tmp1 = gfc_build_array_ref (tmp2, count3); @@ -1684,10 +1682,8 @@ generate_loop_for_rhs_to_temp (gfc_expr *expr2, tree tmp1, tree size, /* Form the mask expression according to the mask tree list. */ if (wheremask) { - tmp2 = wheremask; - if (tmp2 != NULL) - wheremaskexpr = gfc_build_array_ref (tmp2, count3); - tmp2 = TREE_CHAIN (tmp2); + wheremaskexpr = gfc_build_array_ref (wheremask, count3); + tmp2 = TREE_CHAIN (wheremask); while (tmp2) { tmp1 = gfc_build_array_ref (tmp2, count3); -- cgit v1.1