projects
/
sbcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
0.9.9.27:
[sbcl.git]
/
src
/
code
/
target-signal.lisp
diff --git
a/src/code/target-signal.lisp
b/src/code/target-signal.lisp
index
09d8653
..
53fc396
100644
(file)
--- a/
src/code/target-signal.lisp
+++ b/
src/code/target-signal.lisp
@@
-119,7
+119,6
@@
(define-signal-handler sigint-handler "interrupted" sigint-%break)
(define-signal-handler sigill-handler "illegal instruction")
(define-signal-handler sigtrap-handler "breakpoint/trap")
(define-signal-handler sigint-handler "interrupted" sigint-%break)
(define-signal-handler sigill-handler "illegal instruction")
(define-signal-handler sigtrap-handler "breakpoint/trap")
-(define-signal-handler sigiot-handler "SIGIOT")
#!-linux
(define-signal-handler sigemt-handler "SIGEMT")
(define-signal-handler sigbus-handler "bus error")
#!-linux
(define-signal-handler sigemt-handler "SIGEMT")
(define-signal-handler sigbus-handler "bus error")
@@
-133,15
+132,21
@@
(declare (type system-area-pointer context))
(sb!impl::run-expired-timers))
(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))
(declare (ignore signal code context))
- (throw 'toplevel-catcher nil))
+ (sb!thread::terminate-session)
+ (sb!ext:quit))
+
+;; Also known as SIGABRT.
+(defun sigiot-handler (signal code context)
+ (declare (ignore signal code context))
+ (sb!impl::%halt))
(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)
(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)
(enable-interrupt sigill #'sigill-handler)
(enable-interrupt sigtrap #'sigtrap-handler)
(enable-interrupt sigiot #'sigiot-handler)