[Sbcl-commits] CVS: sbcl/src/runtime purify.c,1.59,1.60

[Christophe R. <cr...@us...>]

Update of /cvsroot/sbcl/sbcl/src/runtime
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv13065/src/runtime

Modified Files:
	purify.c 
Log Message:
0.9.10.40:
	Fix unithreaded build (and incidentally a potential heap 
	corruption on purify, given a sufficiently small struct thread 
	or a sufficiently large UNBOUND_MARKER_WIDETAG)
	... #ifdef LISP_FEATURE_SB_THREAD the offending code.


Index: purify.c
===================================================================
RCS file: /cvsroot/sbcl/sbcl/src/runtime/purify.c,v
retrieving revision 1.59
retrieving revision 1.60
diff -u -d -r1.59 -r1.60
--- purify.c	21 Feb 2006 22:59:33 -0000	1.59
+++ purify.c	16 Mar 2006 14:04:59 -0000	1.60
@@ -1514,10 +1514,12 @@
                (lispobj *)SymbolValue(BINDING_STACK_POINTER,thread) -
                (lispobj *)thread->binding_stack_start,
           0);
+#ifdef LISP_FEATURE_SB_THREAD
         pscav( (lispobj *) (thread+1),
                fixnum_value(SymbolValue(FREE_TLS_INDEX,0)) -
                (sizeof (struct thread))/(sizeof (lispobj)),
           0);
+#endif
     }