Changeset 7866

Timestamp:

Dec 10, 2007, 4:54:48 AM (17 years ago)

Author:

Gary Byers

Message:

If we have to wait in %PROMOTE-RWLOCK, release the spinlock/futex first;
pass the LOCK argument to %WRITE-LOCK-RWLOCK-PTR.

File:

• branches/working-0711/ccl/level-0/l0-misc.lisp (modified) (1 diff)

branches/working-0711/ccl/level-0/l0-misc.lisp

@@ -1134 +1134 @@
                       (setf (lock-acquisition.status flag) t))
                     t)
-                  (progn
+                  (progn                    
+                    #+futex
+                    (%unlock-futex ptr)
+                    #-futex
+                    (setf (%get-natural ptr target::rwlock.spin) 0)
                     (%unlock-rwlock-ptr ptr lock)
                     (let* ((*interrupt-level* level))
-                      (%write-lock-rwlock-ptr ptr flag)))))))))))
+                      (%write-lock-rwlock-ptr ptr lock flag)))))))))))