diff --git a/gcc/ChangeLog b/gcc/ChangeLog
index 930e4f88e22..a2edcfb7ceb 100644
--- a/gcc/ChangeLog
+++ b/gcc/ChangeLog
@@ -1,3 +1,8 @@
+Sat Jun 19 22:52:55 1999  Richard Henderson  <rth@cygnus.com>
+
+	* haifa-sched.c (sched_analyze): Mark call-user regs as clobbered
+	instead of set.
+
 Sat Jun 19 05:40:07 1999  Philip Blundell <pb@nexus.co.uk>
 
 	* arm.c (arm_reload_in_hi): Invert sense of test on BYTES_BIG_ENDIAN.
diff --git a/gcc/haifa-sched.c b/gcc/haifa-sched.c
index 41a61c459cd..c2c4735efdc 100644
--- a/gcc/haifa-sched.c
+++ b/gcc/haifa-sched.c
@@ -3957,11 +3957,7 @@ sched_analyze (head, tail)
 		    for (u = reg_last_sets[i]; u; u = XEXP (u, 1))
 		      add_dependence (insn, XEXP (u, 0), REG_DEP_ANTI);
 
-		    if (global_regs[i])
-		      for (u = reg_last_clobbers[i]; u; u = XEXP (u, 1))
-		        add_dependence (insn, XEXP (u, 0), REG_DEP_ANTI);
-
-		    SET_REGNO_REG_SET (reg_pending_sets, i);
+		    SET_REGNO_REG_SET (reg_pending_clobbers, i);
 		  }
 	    }