PR fortran/32550

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

diff --git a/gcc/loop-doloop.c b/gcc/loop-doloop.c
index 004dcfe..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
@@ -616,20 +616,16 @@ doloop_optimize (struct loop *loop)
   return true;
 }
 
-/* This is the main entry point.  Process all LOOPS using doloop_optimize.  */
+/* This is the main entry point.  Process all loops using doloop_optimize.  */
 
 void
-doloop_optimize_loops (struct loops *loops)
+doloop_optimize_loops (void)
 {
-  unsigned i;
+  loop_iterator li;
   struct loop *loop;
 
-  for (i = 1; i < loops->num; i++)
+  FOR_EACH_LOOP (li, loop, 0)
     {
-      loop = loops->parray[i];
-      if (!loop)
-       continue;
-
       doloop_optimize (loop);
     }
 
@@ -637,7 +633,7 @@ doloop_optimize_loops (struct loops *loops)
 
 #ifdef ENABLE_CHECKING
   verify_dominators (CDI_DOMINATORS);
-  verify_loop_structure (loops);
+  verify_loop_structure ();
 #endif
 }
 #endif /* HAVE_doloop_end */