From: Daniel Colascione <dancol@dancol.org>
Date: Tue, 8 Apr 2014 12:34:30 +0000 (-0700)
Subject: More GC assertions
X-Git-Tag: emacs-25.0.90~2640^2~252
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=a237d879b98cc655382e2dbd83c1a05208c19db8;p=emacs.git

More GC assertions
---

a237d879b98cc655382e2dbd83c1a05208c19db8
diff --cc src/ChangeLog
index 0b03069c8d7,f3cc322636c..ea32a480a6c
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@@ -1,5 -1,11 +1,9 @@@
 -2014-04-03  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).
 +2014-04-08  Daniel Colascione  <dancol@dancol.org>
  
 -2014-04-03  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.
diff --cc src/alloc.c
index d22e71bd1a8,a007a43457d..15bfbbbb1b7
--- a/src/alloc.c
+++ b/src/alloc.c
@@@ -6639,7 -6600,11 +6641,9 @@@ sweep_symbols (void
            else
              {
                ++num_used;
 -              if (!pure_p)
 -                eassert (!STRING_MARKED_P (XSTRING (sym->s.name)));
                sym->s.gcmarkbit = 0;
+               /* Attempt to catch bogus objects.  */
+               eassert (valid_lisp_object_p (sym->s.function) >= 1);
              }
          }