projects
/
sbcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
0.8.18.3:
[sbcl.git]
/
src
/
code
/
target-signal.lisp
diff --git
a/src/code/target-signal.lisp
b/src/code/target-signal.lisp
index
a920f15
..
5a43e17
100644
(file)
--- a/
src/code/target-signal.lisp
+++ b/
src/code/target-signal.lisp
@@
-17,26
+17,20
@@
\f
;;;; system calls that deal with signals
\f
;;;; system calls that deal with signals
+;;; Send the signal SIGNAL to the process with process id PID. SIGNAL
+;;; should be a valid signal number
#!-sb-fluid (declaim (inline real-unix-kill))
#!-sb-fluid (declaim (inline real-unix-kill))
-(sb!alien:define-alien-routine ("kill" real-unix-kill) sb!alien:int
+(sb!alien:define-alien-routine ("kill" unix-kill) sb!alien:int
(pid sb!alien:int)
(signal sb!alien:int))
(pid sb!alien:int)
(signal sb!alien:int))
-;;; Send the signal SIGNAL to the process with process id PID. SIGNAL
-;;; should be a valid signal number
-(defun unix-kill (pid signal)
- (real-unix-kill pid signal))
-
+;;; Send the signal SIGNAL to the all the process in process group
+;;; PGRP. SIGNAL should be a valid signal number
#!-sb-fluid (declaim (inline real-unix-killpg))
#!-sb-fluid (declaim (inline real-unix-killpg))
-(sb!alien:define-alien-routine ("killpg" real-unix-killpg) sb!alien:int
+(sb!alien:define-alien-routine ("killpg" unix-killpg) sb!alien:int
(pgrp sb!alien:int)
(signal sb!alien:int))
(pgrp sb!alien:int)
(signal sb!alien:int))
-;;; Send the signal SIGNAL to the all the process in process group
-;;; PGRP. SIGNAL should be a valid signal number
-(defun unix-killpg (pgrp signal)
- (real-unix-killpg pgrp signal))
-
;;; Reset the current set of masked signals (those being blocked from
;;; delivery).
;;;
;;; Reset the current set of masked signals (those being blocked from
;;; delivery).
;;;
@@
-61,6
+55,7
@@
(defun enable-interrupt (signal handler)
(declare (type (or function fixnum (member :default :ignore)) handler))
(defun enable-interrupt (signal handler)
(declare (type (or function fixnum (member :default :ignore)) handler))
+ (/show0 "enable-interrupt")
(without-gcing
(let ((result (install-handler signal
(case handler
(without-gcing
(let ((result (install-handler signal
(case handler
@@
-97,7
+92,7
@@
`(defun ,name (signal info context)
(declare (ignore signal info))
(declare (type system-area-pointer context))
`(defun ,name (signal info context)
(declare (ignore signal info))
(declare (type system-area-pointer context))
- (/show "in Lisp-level signal handler" (sap-int context))
+ (/show "in Lisp-level signal handler" ,(symbol-name name) (sap-int context))
(,function ,(concatenate 'simple-string what " at #X~X")
(with-alien ((context (* os-context-t) context))
(sap-int (sb!vm:context-pc context)))))))
(,function ,(concatenate 'simple-string what " at #X~X")
(with-alien ((context (* os-context-t) context))
(sap-int (sb!vm:context-pc context)))))))