Changeset 14540 for trunk/source/level-0/l0-misc.lisp
- Timestamp:
- Dec 31, 2010, 10:24:56 PM (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/source/level-0/l0-misc.lisp
r14119 r14540 896 896 t) 897 897 (incf (%get-natural ptr target::rwlock.blocked-writers)) 898 (let* ((waitval (%get- naturalwrite-signal 0)))898 (let* ((waitval (%get-signed-long write-signal 0))) 899 899 (%unlock-futex ptr) 900 900 (with-process-whostate ((rwlock-write-whostate lock)) … … 970 970 (declare (fixnum state)) 971 971 (incf (%get-natural ptr target::rwlock.blocked-readers)) 972 (let* ((waitval (%get- naturalreader-signal 0)))972 (let* ((waitval (%get-signed-long reader-signal 0))) 973 973 (%unlock-futex ptr) 974 974 (let* ((*interrupt-level* level)) … … 1067 1067 (if (> nreaders 0) 1068 1068 (setq signal reader-signal wakeup #$INT_MAX))))) 1069 (when signal (incf (%get-signed- naturalsignal 0)))1069 (when signal (incf (%get-signed-long signal 0))) 1070 1070 (%unlock-futex ptr) 1071 1071 (when signal (futex-wake signal wakeup))
Note: See TracChangeset
for help on using the changeset viewer.