projects
/
sbcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
0.9.18.71: fix build on Darwin 7.9.0 (OS X 10.3)
[sbcl.git]
/
src
/
code
/
target-signal.lisp
diff --git
a/src/code/target-signal.lisp
b/src/code/target-signal.lisp
index
53fc396
..
ceffe0b
100644
(file)
--- a/
src/code/target-signal.lisp
+++ b/
src/code/target-signal.lisp
@@
-125,7
+125,6
@@
(define-signal-handler sigsegv-handler "segmentation violation")
#!-linux
(define-signal-handler sigsys-handler "bad argument to a system call")
(define-signal-handler sigsegv-handler "segmentation violation")
#!-linux
(define-signal-handler sigsys-handler "bad argument to a system call")
-(define-signal-handler sigpipe-handler "SIGPIPE")
(defun sigalrm-handler (signal info context)
(declare (ignore signal info context))
(defun sigalrm-handler (signal info context)
(declare (ignore signal info context))
@@
-157,13
+156,17
@@
(enable-interrupt sigsegv #'sigsegv-handler)
#!-linux
(enable-interrupt sigsys #'sigsys-handler)
(enable-interrupt sigsegv #'sigsegv-handler)
#!-linux
(enable-interrupt sigsys #'sigsys-handler)
- (enable-interrupt sigpipe #'sigpipe-handler)
+ (ignore-interrupt sigpipe)
(enable-interrupt sigalrm #'sigalrm-handler)
(sb!unix::reset-signal-mask)
(values))
\f
;;;; etc.
(enable-interrupt sigalrm #'sigalrm-handler)
(sb!unix::reset-signal-mask)
(values))
\f
;;;; etc.
+;;; extract si_code from siginfo_t
+(sb!alien:define-alien-routine ("siginfo_code" siginfo-code) sb!alien:int
+ (info system-area-pointer))
+
;;; CMU CL comment:
;;; Magically converted by the compiler into a break instruction.
(defun receive-pending-interrupt ()
;;; CMU CL comment:
;;; Magically converted by the compiler into a break instruction.
(defun receive-pending-interrupt ()