PR fortran/32550

[pf3gnuchains/gcc-fork.git] / gcc / loop-doloop.c

diff --git a/gcc/loop-doloop.c b/gcc/loop-doloop.c
index 093ec30..f59feae 100644 (file)
--- a/gcc/loop-doloop.c
+++ b/gcc/loop-doloop.c
@@ -422,13 +422,13 @@ doloop_modify (struct loop *loop, struct niter_desc *desc,
          emit_insn_after (sequence, BB_END (set_zero));
       
          set_immediate_dominator (CDI_DOMINATORS, set_zero,
-                                  recount_dominator (CDI_DOMINATORS,
-                                                     set_zero));
+                                  recompute_dominator (CDI_DOMINATORS,
+                                                       set_zero));
        }
 
       set_immediate_dominator (CDI_DOMINATORS, new_preheader,
-                              recount_dominator (CDI_DOMINATORS,
-                                                 new_preheader));
+                              recompute_dominator (CDI_DOMINATORS,
+                                                   new_preheader));
     }
 
   /* Some targets (eg, C4x) need to initialize special looping
@@ -621,15 +621,11 @@ doloop_optimize (struct loop *loop)
 void
 doloop_optimize_loops (void)
 {
-  unsigned i;
+  loop_iterator li;
   struct loop *loop;
 
-  for (i = 1; i < current_loops->num; i++)
+  FOR_EACH_LOOP (li, loop, 0)
     {
-      loop = current_loops->parray[i];
-      if (!loop)
-       continue;
-
       doloop_optimize (loop);
     }