mirror/gcc
2
0
Fork 0
mirror of git://gcc.gnu.org/git/gcc.git synced 2025-04-16 23:31:05 +08:00
Code Issues Packages Projects Releases Wiki Activity

trans-stmt.c (generate_loop_for_temp_to_lhs, [...]): Remove if whose condition is always true.

Browse Source 
* 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
This commit is contained in:
Tobias Schlüter 2005-02-13 16:32:45 +01:00 committed by Tobias Schlüter
parent 81d8d0fa90
commit 1ac262625d
2 changed files with 10 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
gcc/fortran/ChangeLog
View File

@ -1,3 +1,9 @@
2005-02-13 Tobias Schl"uter <tobias.schlueter@physik.uni-muenchen.de>
* 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 <tobias.schlueter@physik.uni-muenchen.de>
* symbol.c (gfc_use_ha_derived): Remove, fold functionality into ...

12
gcc/fortran/trans-stmt.c
View File

@ -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);