diff options
| author | Daniel Colascione <dancol@dancol.org> | 2014-04-08 05:34:30 -0700 |
|---|---|---|
| committer | Daniel Colascione <dancol@dancol.org> | 2014-04-08 05:34:30 -0700 |
| commit | a237d879b98cc655382e2dbd83c1a05208c19db8 (patch) | |
| tree | 733b726240e75abe9e8a0a38238b25e3c4bd4853 /src/alloc.c | |
| parent | fd9c746d747bf9f18919d88d25a8d95a878f82b5 (diff) | |
| parent | e3f04a4a8f439dee381d8e6d0c55c684107c1a55 (diff) | |
More GC assertions
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 d22e71bd1a8..15bfbbbb1b7 100644 --- a/src/alloc.c +++ b/src/alloc.c @@ -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); } } |