common-lisp/sbcl.sbcl
1
0
Fork 0
mirror of git://git.code.sf.net/p/sbcl/sbcl synced 2026-09-10 07:26:40 -04:00
Code Issues Actions 8 Packages Projects Releases Wiki Activity

Remove DEFAULT-INTERRUPT and IGNORE-INTERRUPT

Browse source
This commit is contained in:
Douglas Katzman 2020-08-16 23:52:30 -04:00
parent 5b6d15abbc
commit 5df305ad28
2 changed files with 1 additions and 12 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
package-data-list.lisp-expr
View file

@ -2791,7 +2791,6 @@ SB-KERNEL) have been undone, but probably more remain."
"DEALLOCATE-SYSTEM-MEMORY"
"DECODE-TIMEOUT"
"DECODE-INTERNAL-TIME"
"DEFAULT-INTERRUPT"
"DEFER-DEADLINE"
"DYNAMIC-FOREIGN-SYMBOLS-P"
"DLOPEN-OR-LOSE"
@ -2807,7 +2806,6 @@ SB-KERNEL) have been undone, but probably more remain."
"FOREIGN-SYMBOL-ADDRESS"
"FOREIGN-SYMBOL-DATAREF-SAP"
"GET-MACHINE-VERSION" "GET-PAGE-SIZE" "GET-SYSTEM-INFO"
"IGNORE-INTERRUPT"
"IN-INTERRUPTION"
"INTERACTIVE-INTERRUPT"
"INT-SAP"

11
src/code/target-signal.lisp
View file

@ -67,6 +67,7 @@
;;; point instructions, certain system calls), hopefully ruling out the
;;; possibility that we would trigger it during allocation.
;;; FIXME: terrible name. doesn't actually "enable" in the sense of unmasking.
(defun enable-interrupt (signal handler &key synchronous)
(declare (type (or function fixnum (member :default :ignore)) handler))
(/show0 "enable-interrupt")
@ -99,16 +100,7 @@
;; instead of what was supplied before as HANDLER. We can only hope that
;; users don't pass the result of ENABLE-INTERRUPT as the argument to
;; another call, as that would create a chain of closures.
;; I wonder if the fact that we at some point decided that we need
;; to allow signal nesting to about 1024 levels deep had anything
;; to do with this bug?
(the (or function fixnum) (aref ohandler 0)))))))))
(defun default-interrupt (signal)
(enable-interrupt signal :default))
(defun ignore-interrupt (signal)
(enable-interrupt signal :ignore))
;;;; Support for signal handlers which aren't.
;;;;
@ -241,7 +233,6 @@
#-sb-thruption
(enable-interrupt sigpipe #'sigpipe-handler)
(enable-interrupt sigchld #'sigchld-handler)
#+hpux (ignore-interrupt sigxcpu)
#-sb-safepoint (unblock-gc-signals)
(unblock-deferrable-signals)
(values))