[cmucl-cvs] CMUCL commit: cross-sol-x86-branch src/lisp (gencgc.c)

Raymond Toy rtoy at common-lisp.net
Mon Dec 20 13:25:23 UTC 2010


    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. */




More information about the cmucl-cvs mailing list