Mercurial > emacs
changeset 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 | 1b66d336a770 |
| children | b1738412da70 |
| files | src/alloc.c |
| diffstat | 1 files changed, 11 insertions(+), 0 deletions(-) [+] |
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. */