[Sbcl-commits] CVS: sbcl/src/compiler/generic objdef.lisp,1.41,1.42

[<me...@us...>]

Update of /cvsroot/sbcl/sbcl/src/compiler/generic
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv30441/src/compiler/generic

Modified Files:
	objdef.lisp 
Log Message:
0.9.5.34:
  * grab all_threads_lock for the duration of creating and linking a
    thread struct to avoid gc lossage (reinstated STATE_STARTING and
    recomplicated thread start vs gc interaction)
  * fixed thread creation test


Index: objdef.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/src/compiler/generic/objdef.lisp,v
retrieving revision 1.41
retrieving revision 1.42
diff -u -d -r1.41 -r1.42
--- objdef.lisp	4 Oct 2005 17:31:26 -0000	1.41
+++ objdef.lisp	11 Oct 2005 09:31:32 -0000	1.42
@@ -407,7 +407,7 @@
   ;; tls[0] = NO_TLS_VALUE_MARKER_WIDETAG because a the tls index slot
   ;; of a symbol is initialized to zero
   (no-tls-value-marker)
-  (os-thread :c-type "os_thread_t")
+  (os-thread :c-type "volatile os_thread_t")
   (binding-stack-start :c-type "lispobj *" :length #!+alpha 2 #!-alpha 1)
   (binding-stack-pointer :c-type "lispobj *" :length #!+alpha 2 #!-alpha 1)
   (control-stack-start :c-type "lispobj *" :length #!+alpha 2 #!-alpha 1)