diff options
| author | Kim F. Storm <storm@cua.dk> | 2005-04-03 22:27:05 +0000 |
|---|---|---|
| committer | Kim F. Storm <storm@cua.dk> | 2005-04-03 22:27:05 +0000 |
| commit | bbc012e0c3a0e91beecb09643956fa09979420ab (patch) | |
| tree | 9cb6b3d77122c64bc9bf54c82ffea5597023d595 /src/alloc.c | |
| parent | 4d5ddddce81222d58dcaa8840fe68c2fe4ecc7dc (diff) | |
| download | emacs-bbc012e0c3a0e91beecb09643956fa09979420ab.tar.gz | |
(Fgarbage_collect): Call CHECK_CONS_LIST before and after gc.
Diffstat (limited to 'src/alloc.c')
| -rw-r--r-- | src/alloc.c | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/src/alloc.c b/src/alloc.c index a907247d21c..f3af3940e15 100644 --- a/src/alloc.c +++ b/src/alloc.c @@ -4687,6 +4687,8 @@ returns nil, because real GC can't be done. */) if (pure_bytes_used_before_overflow) return Qnil; + CHECK_CONS_LIST (); + /* Don't keep undo information around forever. Do this early on, so it is no problem if the user quits. */ { @@ -4880,6 +4882,8 @@ returns nil, because real GC can't be done. */) UNBLOCK_INPUT; + CHECK_CONS_LIST (); + /* clear_marks (); */ gc_in_progress = 0; |