diff --git a/gcc/ChangeLog b/gcc/ChangeLog
index 4ce5ffebe6a..1ba077d8160 100644
--- a/gcc/ChangeLog
+++ b/gcc/ChangeLog
@@ -1,3 +1,9 @@
+2000-01-12  Richard Earnshaw <rearnsha@arm.com>
+
+	* haifa-sched.c (split_edges): Pass edgeset_size as second arg to
+	extract_bitlst.
+	(extract_bitlist): Declare bitlen.
+
 2000-01-12  Zack Weinberg  <zack@wolery.cumb.org
 
 	* cccp.c: Accept and ignore -lang-fortran.
diff --git a/gcc/haifa-sched.c b/gcc/haifa-sched.c
index b677b045e78..8261f2d76b1 100644
--- a/gcc/haifa-sched.c
+++ b/gcc/haifa-sched.c
@@ -1222,6 +1222,7 @@ static void
 extract_bitlst (set, len, bitlen, bl)
      bitset set;
      int len;
+     int bitlen;
      bitlst *bl;
 {
   int i, j, offset;
@@ -1896,7 +1897,7 @@ split_edges (bb_src, bb_trg, bl)
   while (es--)
     src[es] = (pot_split[bb_src])[es];
   BITSET_DIFFER (src, pot_split[bb_trg], edgeset_size);
-  extract_bitlst (src, es, edgeset_bitsize, bl);
+  extract_bitlst (src, edgeset_size, edgeset_bitsize, bl);
   free (src);
 }