(Fgarbage_collect): Call CHECK_CONS_LIST before and after gc.
This commit is contained in:
parent
4d5ddddce8
commit
bbc012e0c3
1 changed files with 4 additions and 0 deletions
|
@ -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;
|
||||
|
||||
|
|
Loading…
Add table
Reference in a new issue