mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-06 11:55:48 +00:00
Code Issues Releases Activity

(Fgarbage_collect): Call CHECK_CONS_LIST before and after gc.

Browse Source
This commit is contained in:
Kim F. Storm 2005-04-03 22:27:05 +00:00
parent 4d5ddddce8
commit bbc012e0c3
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/alloc.c
View File

@ -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;