diff --git a/gcc/ChangeLog b/gcc/ChangeLog
index e616f69fd67..04085c8f47f 100644
--- a/gcc/ChangeLog
+++ b/gcc/ChangeLog
@@ -2,7 +2,8 @@
 
 	* calls.c (expand_call): Don't emit reg notes for a sibcall.
 
-2000-05-01  Richard Henderson  <rth@cygnus.com>
+	* flow.c (calculate_global_regs_live): Skip for_each_successor_phi
+	if not in SSA form.
 
 	* ifcvt.c (if_convert): Only verify_flow_info if ENABLE_CHECKING.
 
diff --git a/gcc/flow.c b/gcc/flow.c
index 73cb173ba81..f0cee82541b 100644
--- a/gcc/flow.c
+++ b/gcc/flow.c
@@ -3086,8 +3086,9 @@ calculate_global_regs_live (blocks_in, blocks_out, flags)
 	 global_live_at_start, since they are live only along a
 	 particular edge.  Set those regs that are live because of a
 	 phi node alternative corresponding to this particular block.  */
-      for_each_successor_phi (bb, &set_phi_alternative_reg, 
-			      new_live_at_end);
+      if (in_ssa_form)
+	for_each_successor_phi (bb, &set_phi_alternative_reg, 
+				new_live_at_end);
 
       if (bb == ENTRY_BLOCK_PTR)
 	{