Date: Monday, December 20, 2010 @ 08:25:23 Author: rtoy Path: /project/cmucl/cvsroot/src/lisp Tag: cross-sol-x86-branch

Modified: gencgc.c

Fix typo (missing paren).

----------+ gencgc.c | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-)

Index: src/lisp/gencgc.c diff -u src/lisp/gencgc.c:1.110.6.2 src/lisp/gencgc.c:1.110.6.3 --- src/lisp/gencgc.c:1.110.6.2 Sun Dec 19 23:12:57 2010 +++ src/lisp/gencgc.c Mon Dec 20 08:25:22 2010 @@ -7,7 +7,7 @@ * * Douglas Crosher, 1996, 1997, 1998, 1999. * - * $Header: /project/cmucl/cvsroot/src/lisp/gencgc.c,v 1.110.6.2 2010-12-20 04:12:57 rtoy Exp $ + * $Header: /project/cmucl/cvsroot/src/lisp/gencgc.c,v 1.110.6.3 2010-12-20 13:25:22 rtoy Exp $ * */

@@ -3444,7 +3444,7 @@

closure = (struct closure *) where; fun = closure->function - RAW_ADDR_OFFSET; -#if !(defined(x86) && defined(SOLARIS) +#if !(defined(i386) && defined(SOLARIS)) scavenge(&fun, 1); /* The function may have moved so update the raw address. But don't write unnecessarily. */