Mercurial > emacs
diff src/alloc.c @ 56539:9fc5aae4053e
(check_cons_list): New function (contents commented out).
author | Richard M. Stallman <rms@gnu.org> |
---|---|
date | Sun, 25 Jul 2004 17:35:04 +0000 |
parents | 1529ab7bab88 |
children | 0487c26b96ee 4e92102a0172 c08afac24467 |
line wrap: on
line diff
--- a/src/alloc.c Sun Jul 25 05:45:53 2004 +0000 +++ b/src/alloc.c Sun Jul 25 17:35:04 2004 +0000 @@ -2395,6 +2395,17 @@ 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. */