X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Ftarget-signal.lisp;h=ceffe0b15219858fc45be43e1abcfa64e684be9f;hb=89c9285a01e9ccb247198b77552d48f007d20e06;hp=8308012d8f324e9a1a4b0c5c2f7d09be8bea2dc8;hpb=d44781425345e5254a15200a809977944aa7ff00;p=sbcl.git

diff --git a/src/code/target-signal.lisp b/src/code/target-signal.lisp
index 8308012..ceffe0b 100644
--- a/src/code/target-signal.lisp
+++ b/src/code/target-signal.lisp
@@ -163,6 +163,10 @@
 
 ;;;; 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 ()