From: Daniel B. <da...@us...> - 2003-04-07 13:17:26
|
Update of /cvsroot/sbcl/sbcl/src/code In directory sc8-pr-cvs1:/tmp/cvs-serv10665/src/code Modified Files: target-unithread.lisp Log Message: 0.pre8.40 === Threads merge, 0.390625 metres === Unithread fixes for all remaining architectures, although I'm not 100% that BSD ports are all working. Various 32/64 bit fixes for Alpha Removed the allocate-16Mb-at-a-time hacks from the Linux port, substitute with MAP_NORESERVE: CMUCL has been doing this for a long time already without user complaint. Also the retryable mmap errors: as there's no logic in the caller to actually retry, we'd be better off losing if mmap fails. Index: target-unithread.lisp =================================================================== RCS file: /cvsroot/sbcl/sbcl/src/code/target-unithread.lisp,v retrieving revision 1.3 retrieving revision 1.4 diff -u -d -r1.3 -r1.4 --- target-unithread.lisp 5 Apr 2003 13:04:15 -0000 1.3 +++ target-unithread.lisp 7 Apr 2003 13:16:52 -0000 1.4 @@ -1,5 +1,6 @@ (in-package "SB!THREAD") +;;; used bu debug-int.lisp to access interrupt contexts #!-sb-fluid (declaim (inline sb!vm::current-thread-offset-sap)) (defun sb!vm::current-thread-offset-sap (n) (declare (type (unsigned-byte 27) n)) @@ -7,8 +8,8 @@ (* n 4))) (defun current-thread-id () - (sb!sys:sap-int - (sb!vm::current-thread-offset-sap sb!vm::thread-pid-slot))) + (sb!sys:sap-ref-32 (alien-sap (extern-alien "all_threads" (* t))) + (* sb!vm::thread-pid-slot 4))) ;;;; queues, locks |