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