From: <me...@us...> - 2005-06-19 19:35:51
|
Update of /cvsroot/sbcl/sbcl/contrib/sb-aclrepl In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv23072/contrib/sb-aclrepl Modified Files: repl.lisp Log Message: 0.9.1.59: merged most of the pthreads stuff from amd64-pthread-branch except the amd64 part, plus: * in the runtime thread_kill, thread_sigmask, thread_self stand for pthread_kill or kill, sigprocmaks or pthread_sigmask, and pthread_self or getpid respectively controlled by the sb-thread feature * fixed recursive get on session-lock that happened when a gc interrupting get-foreground reaped a thread * fixed sigint handling: removed broken (by pthread signal handling semantics) sigint enable/disable machinery in favor of sigint-%break looking up the foreground thread and interrupting it, which is itself racy :-(. * numerous fixes for interrupt-thread * threads block signals until they are set up properly * removed suspend-thread, resume-thread * destroy-thread is now equivalent to terminate-thread. Index: repl.lisp =================================================================== RCS file: /cvsroot/sbcl/sbcl/contrib/sb-aclrepl/repl.lisp,v retrieving revision 1.25 retrieving revision 1.26 diff -u -d -r1.25 -r1.26 --- repl.lisp 12 May 2005 21:47:14 -0000 1.25 +++ repl.lisp 19 Jun 2005 19:35:41 -0000 1.26 @@ -303,7 +303,7 @@ #+sb-thread (defun thread-pids () "Return a list of the pids for all threads" - (let ((offset (* 4 sb-vm::thread-pid-slot))) + (let ((offset (* 4 sb-vm::thread-os-thread-slot))) (sb-thread::mapcar-threads #'(lambda (sap) (sb-sys:sap-ref-32 sap offset))))) |