(mark_interval): Add ignored arg.

(mark_interval_tree): Pass new arg to traverse_intervals.

1 files changed, 3 insertions, 2 deletions

diff --git a/src/alloc.c b/src/alloc.c
index 476ca817ba8..ef8850270d3 100644
--- a/src/alloc.c
+++ b/src/alloc.c
@@ -248,8 +248,9 @@ static int total_free_intervals, total_intervals;
 /* Mark the pointers of one interval. */
 
 static void
-mark_interval (i)
+mark_interval (i, dummy)
      register INTERVAL i;
+     Lisp_Object dummy;
 {
   if (XMARKBIT (i->plist))
     abort ();
@@ -264,7 +265,7 @@ mark_interval_tree (tree)
   if (XMARKBIT (tree->plist))
     return;
 
-  traverse_intervals (tree, 1, 0, mark_interval);
+  traverse_intervals (tree, 1, 0, mark_interval, Qnil);
 }
 
 #define MARK_INTERVAL_TREE(i) \