From: Tobias Schlüter Date: Sun, 13 Feb 2005 15:32:45 +0000 (+0100) Subject: trans-stmt.c (generate_loop_for_temp_to_lhs, [...]): Remove if whose condition is... X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=1ac262625dcecb15e3d50a29da1b2965865ab863;p=gcc.git 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 --- diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index 321434aedf0..e8d487a6341 100644 --- a/gcc/fortran/ChangeLog +++ b/gcc/fortran/ChangeLog @@ -1,3 +1,9 @@ +2005-02-13 Tobias Schl"uter + + * trans-stmt.c (generate_loop_for_temp_to_lhs, + generate_loop_for_rhs_to_temp): Remove if whose condition is + always true. + 2005-02-12 Tobias Schl"uter * symbol.c (gfc_use_ha_derived): Remove, fold functionality into ... diff --git a/gcc/fortran/trans-stmt.c b/gcc/fortran/trans-stmt.c index 7a55cbc48c9..da074c8b454 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);