Changeset 6182

Timestamp:

Apr 8, 2007, 3:01:14 AM (13 years ago)

Author:

gb

Message:

Use %PTR-STORE-FIXNUM-CONDITIONAL in %GET-SPIN-LOCK.
Locking code: spin lock must be released before interrupts are re-enabled.

File:

• trunk/ccl/level-0/l0-misc.lisp (modified) (2 diffs)

trunk/ccl/level-0/l0-misc.lisp

@@ -474 +474 @@
     (loop
       (dotimes (i n)
-        (when (eql 0 (%ptr-store-conditional p 0 self))
+        (when (eql 0 (%ptr-store-fixnum-conditional p 0 self))
           (return-from %get-spin-lock t)))
       (yield))))
@@ -501 +501 @@
          (if flag
            (setf (lock-acquisition.status flag) t))
-         (return t)))
-      (setf (%get-ptr spin) (%null-ptr))
+         (return t))
+       (setf (%get-ptr spin) (%null-ptr)))
       (%process-wait-on-semaphore-ptr signal 1 0 "waiting for lock"))))