From: <me...@us...> - 2005-10-13 07:41:29
|
Update of /cvsroot/sbcl/sbcl/src/code In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv10775/src/code Modified Files: target-signal.lisp Log Message: 0.9.5.54: * exit properly on SIGTERM and coredump on SIGQUIT (according to the glibc docs) Index: target-signal.lisp =================================================================== RCS file: /cvsroot/sbcl/sbcl/src/code/target-signal.lisp,v retrieving revision 1.31 retrieving revision 1.32 diff -u -d -r1.31 -r1.32 --- target-signal.lisp 12 Oct 2005 08:56:04 -0000 1.31 +++ target-signal.lisp 13 Oct 2005 07:41:20 -0000 1.32 @@ -133,15 +133,16 @@ (declare (type system-area-pointer context)) (sb!impl::run-expired-timers)) -(defun sigquit-handler (signal code context) +(defun sigterm-handler (signal code context) (declare (ignore signal code context)) - (throw 'toplevel-catcher nil)) + (sb!thread::terminate-session) + (sb!ext:quit)) (defun sb!kernel:signal-cold-init-or-reinit () #!+sb-doc "Enable all the default signals that Lisp knows how to deal with." (enable-interrupt sigint #'sigint-handler) - (enable-interrupt sigquit #'sigquit-handler) + (enable-interrupt sigterm #'sigterm-handler) (enable-interrupt sigill #'sigill-handler) (enable-interrupt sigtrap #'sigtrap-handler) (enable-interrupt sigiot #'sigiot-handler) |