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

[Juho S. <js...@us...>]

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

Modified Files:
      Tag: lutex-branch
	objdef.lisp 
Log Message:
0.9.11.45.lutex-branch.33:
	* Lutex finalization.
        * Some switches in gencgc were missing a case LUTEX_WIDETAG, 
          causing mysterious GC crashes.


Index: objdef.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/src/compiler/generic/objdef.lisp,v
retrieving revision 1.43.2.2
retrieving revision 1.43.2.3
diff -u -d -r1.43.2.2 -r1.43.2.3
--- objdef.lisp	10 Apr 2006 07:49:51 -0000	1.43.2.2
+++ objdef.lisp	8 May 2006 08:26:25 -0000	1.43.2.3
@@ -400,6 +400,10 @@
                           :lowtag other-pointer-lowtag
                           :widetag lutex-widetag
                           :alloc-trans %make-lutex)
+  (gen :c-type "long" :length 1)
+  (live :c-type "long" :length 1)
+  (next :c-type "struct lutex *" :length 1)
+  (prev :c-type "struct lutex *" :length 1)
   (mutex :c-type "pthread_mutex_t *"
          :length 1)
   (condition-variable :c-type "pthread_cond_t *"