[Sbcl-commits] CVS: sbcl/src/code target-thread.lisp,1.74,1.75

[Nikodemus S. <de...@us...>]

Update of /cvsroot/sbcl/sbcl/src/code
In directory sc8-pr-cvs8.sourceforge.net:/tmp/cvs-serv10757/src/code

Modified Files:
	target-thread.lisp 
Log Message:
1.0.5.12: fix threaded Linux builds

 * Undo merge damage: missed one COMPARE-AND-EXCHANGE -> COMPARE-AND-SWAP rename.


Index: target-thread.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/src/code/target-thread.lisp,v
retrieving revision 1.74
retrieving revision 1.75
diff -u -d -r1.74 -r1.75
--- target-thread.lisp	30 Apr 2007 09:37:38 -0000	1.74
+++ target-thread.lisp	30 Apr 2007 10:35:32 -0000	1.75
@@ -268,7 +268,7 @@
       (setf (mutex-value mutex) new-value))
     #!-sb-lutex
     (let (old)
-      (when (and (setf old (compare-and-exchange-mutex-value mutex nil new-value))
+      (when (and (setf old (compare-and-swap-mutex-value mutex nil new-value))
                  waitp)
         (loop while old
               do (multiple-value-bind (to-sec to-usec) (decode-timeout nil)
@@ -278,7 +278,7 @@
                                             (or to-sec -1)
                                             (or to-usec 0))))
                      (signal-deadline)))
-              (setf old (compare-and-exchange-mutex-value mutex nil new-value))))
+              (setf old (compare-and-swap-mutex-value mutex nil new-value))))
       (not old))))
 
 (defun release-mutex (mutex)