[cmucl-cvs] CMUCL commit: cross-sol-x86-branch src/lisp (gencgc.c)
Raymond Toy
rtoy at common-lisp.net
Mon Dec 20 13:53:40 UTC 2010
Date: Monday, December 20, 2010 @ 08:53:40
Author: rtoy
Path: /project/cmucl/cvsroot/src/lisp
Tag: cross-sol-x86-branch
Modified: gencgc.c
Oops. We should check that closure->function is not zero.
----------+
gencgc.c | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)
Index: src/lisp/gencgc.c
diff -u src/lisp/gencgc.c:1.110.6.3 src/lisp/gencgc.c:1.110.6.4
--- src/lisp/gencgc.c:1.110.6.3 Mon Dec 20 08:25:22 2010
+++ src/lisp/gencgc.c Mon Dec 20 08:53:40 2010
@@ -7,7 +7,7 @@
*
* Douglas Crosher, 1996, 1997, 1998, 1999.
*
- * $Header: /project/cmucl/cvsroot/src/lisp/gencgc.c,v 1.110.6.3 2010-12-20 13:25:22 rtoy Exp $
+ * $Header: /project/cmucl/cvsroot/src/lisp/gencgc.c,v 1.110.6.4 2010-12-20 13:53:40 rtoy Exp $
*
*/
@@ -3462,7 +3462,7 @@
* (Previously, we'd get a segfault scavenging the object at
* address -RAW_ADDR_OFFSET.
*/
- if (fun) {
+ if (closure->function) {
scavenge(&fun, 1);
/*
* The function may have moved so update the raw address. But don't
More information about the cmucl-cvs
mailing list