Changeset 6182
- Timestamp:
- Apr 8, 2007, 3:01:14 AM (14 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/ccl/level-0/l0-misc.lisp
r5983 r6182 474 474 (loop 475 475 (dotimes (i n) 476 (when (eql 0 (%ptr-store- conditional p 0 self))476 (when (eql 0 (%ptr-store-fixnum-conditional p 0 self)) 477 477 (return-from %get-spin-lock t))) 478 478 (yield)))) … … 501 501 (if flag 502 502 (setf (lock-acquisition.status flag) t)) 503 (return t)) )504 (setf (%get-ptr spin) (%null-ptr))503 (return t)) 504 (setf (%get-ptr spin) (%null-ptr))) 505 505 (%process-wait-on-semaphore-ptr signal 1 0 "waiting for lock")))) 506 506
Note: See TracChangeset
for help on using the changeset viewer.