[Sbcl-commits] CVS: sbcl/src/runtime purify.c,1.60.2.1,1.60.2.2

[Cyrus H. <sl...@us...>]

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

Modified Files:
      Tag: lutex-branch
	purify.c 
Log Message:
0.9.10.46.lutex-branch.3
    * Make the lutex stuff in purify.c be #ifdef LISP_FEATURE_SB_LUTEX


Index: purify.c
===================================================================
RCS file: /cvsroot/sbcl/sbcl/src/runtime/purify.c,v
retrieving revision 1.60.2.1
retrieving revision 1.60.2.2
diff -u -d -r1.60.2.1 -r1.60.2.2
--- purify.c	21 Mar 2006 21:29:18 -0000	1.60.2.1
+++ purify.c	22 Mar 2006 23:21:03 -0000	1.60.2.2
@@ -368,7 +368,9 @@
 #endif
         case SAP_WIDETAG:
         case WEAK_POINTER_WIDETAG:
+#ifdef LISP_FEATURE_SB_LUTEX
         case LUTEX_WIDETAG:
+#endif
             break;
 
         default:
@@ -962,7 +964,9 @@
 
       case VALUE_CELL_HEADER_WIDETAG:
       case WEAK_POINTER_WIDETAG:
+#ifdef LISP_FEATURE_SB_LUTEX
       case LUTEX_WIDETAG:
+#endif
         return ptrans_boxed(thing, header, 0);
 
       case SYMBOL_HEADER_WIDETAG:
@@ -1378,10 +1382,12 @@
                 count = 4;
                 break;
 
+#ifdef LISP_FEATURE_SB_LUTEX
               case LUTEX_WIDETAG:
                 pscav(addr+1, 1, constant);
                 count = 2;
                 break;
+#endif
 
               case FDEFN_WIDETAG:
                 /* We have to handle fdefn objects specially, so we