[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