mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-29 16:41:45 -08:00
Code Issues Projects Releases Wiki Activity

More GC assertions

Browse source
This commit is contained in:
Daniel Colascione 2014-04-08 05:34:30 -07:00
commit a237d879b9
2 changed files with 8 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

4
src/ChangeLog
View file

@ -1,5 +1,9 @@
2014-04-08 Daniel Colascione <dancol@dancol.org>
* alloc.c (sweep_symbols, mark_object): Assert that symbol
function cells contain valid lisp objects. (Modified version of
patch from Dmitry).
* alloc.c (detect_suspicious_free): Split actual stack capturing
out into new function for easier breakpoint setting.
(note_suspicious_free): New function.

4
src/alloc.c
View file

@ -6220,6 +6220,8 @@ mark_object (Lisp_Object arg)
break;
CHECK_ALLOCATED_AND_LIVE (live_symbol_p);
ptr->gcmarkbit = 1;
/* Attempt to catch bogus objects. */
eassert (valid_lisp_object_p (ptr->function) >= 1);
mark_object (ptr->function);
mark_object (ptr->plist);
switch (ptr->redirect)
@ -6640,6 +6642,8 @@ sweep_symbols (void)
{
++num_used;
sym->s.gcmarkbit = 0;
/* Attempt to catch bogus objects. */
eassert (valid_lisp_object_p (sym->s.function) >= 1);
}
}