diff options
| author | Richard M. Stallman | 2004-07-25 17:35:04 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 2004-07-25 17:35:04 +0000 |
| commit | e3e56238b8aff037df727a5c11edb110c308e026 (patch) | |
| tree | 4146ca3fb33fd9fa66d28d7fdcff174d38418af1 /src/alloc.c | |
| parent | a3111ae4d80d4ca060d30ff9ebe6cec1c3e82e03 (diff) | |
| download | emacs-e3e56238b8aff037df727a5c11edb110c308e026.tar.gz emacs-e3e56238b8aff037df727a5c11edb110c308e026.zip | |
(check_cons_list): New function (contents commented out).
Diffstat (limited to 'src/alloc.c')
| -rw-r--r-- | src/alloc.c | 11 |
1 files changed, 11 insertions, 0 deletions
diff --git a/src/alloc.c b/src/alloc.c index 5c2a6fb48c3..ece150f083c 100644 --- a/src/alloc.c +++ b/src/alloc.c | |||
| @@ -2395,6 +2395,17 @@ DEFUN ("cons", Fcons, Scons, 2, 2, 0, | |||
| 2395 | return val; | 2395 | return val; |
| 2396 | } | 2396 | } |
| 2397 | 2397 | ||
| 2398 | /* Get an error now if there's any junk in the cons free list. */ | ||
| 2399 | void | ||
| 2400 | check_cons_list () | ||
| 2401 | { | ||
| 2402 | struct Lisp_Cons *tail = cons_free_list; | ||
| 2403 | |||
| 2404 | #if 0 | ||
| 2405 | while (tail) | ||
| 2406 | tail = *(struct Lisp_Cons **)&tail->cdr; | ||
| 2407 | #endif | ||
| 2408 | } | ||
| 2398 | 2409 | ||
| 2399 | /* Make a list of 2, 3, 4 or 5 specified objects. */ | 2410 | /* Make a list of 2, 3, 4 or 5 specified objects. */ |
| 2400 | 2411 | ||