(defun sb!vm::current-thread-offset-sap (n)
(declare (type (unsigned-byte 27) n))
(sb!sys:sap-ref-sap (alien-sap (extern-alien "all_threads" (* t)))
- (* n 4)))
+ (* n sb!vm:n-word-bytes)))
(defun current-thread-id ()
(sb!sys:sap-ref-32 (alien-sap (extern-alien "all_threads" (* t)))
- (* sb!vm::thread-pid-slot 4)))
+ (* sb!vm::thread-pid-slot sb!vm:n-word-bytes)))
+
+(defun reap-dead-threads ())
;;;; queues, locks
;;;; the higher-level locking operations are based on waitqueues
(defstruct waitqueue
- (name nil :type (or null simple-base-string))
+ (name nil :type (or null simple-string))
(lock 0)
(data nil))
"Notify one of the processes waiting on QUEUE"
(signal-queue-head queue))
-(defun maybe-install-futex-functions () nil)
-
;;;; job control
(defun init-job-control () t)