Changeset 15752


Ignore:
Timestamp:
Mar 5, 2013, 9:39:18 PM (7 years ago)
Author:
gb
Message:

In %UNLOCK-RECURSIVE-LOCK-PTR, raise the semaphore once for each pending
request.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/level-0/l0-misc.lisp

    r15606 r15752  
    758758         (setf (%get-natural ptr target::lockptr.avail) 0
    759759               (%get-natural ptr target::lockptr.waiting) 0)
    760          (decf pending)
    761          (if (> pending 0)
    762            (setf (%get-natural ptr target::lockptr.waiting) pending))
    763760         (setf (%get-ptr spin) (%null-ptr))
    764          (if (>= pending 0)
     761         (dotimes (i pending)
    765762           (%signal-semaphore-ptr signal)))))
    766763    nil))
Note: See TracChangeset for help on using the changeset viewer.