[Emacs-diffs] Changes to emacs/src/alloc.c

[Richard M . Stallman]

Index: emacs/src/alloc.c
diff -c emacs/src/alloc.c:1.347 emacs/src/alloc.c:1.348
*** emacs/src/alloc.c:1.347     Mon Jul 12 14:35:53 2004
--- emacs/src/alloc.c   Sun Jul 25 17:35:04 2004
***************
*** 2395,2400 ****
--- 2395,2411 ----
    return val;
  }
  
+ /* Get an error now if there's any junk in the cons free list.  */
+ void
+ check_cons_list ()
+ {
+   struct Lisp_Cons *tail = cons_free_list;
+ 
+ #if 0
+   while (tail)
+     tail = *(struct Lisp_Cons **)&tail->cdr;
+ #endif
+ }
  
  /* Make a list of 2, 3, 4 or 5 specified objects.  */