From c5f1424a6292dcfb7f6800b04a256e486143c43c Mon Sep 17 00:00:00 2001 From: wlott <wlott> Date: Mon, 26 Nov 1990 18:25:58 +0000 Subject: [PATCH] The C support code now picks off internal errors, so we don't have to. --- code/signal.lisp | 12 ++++-------- 1 file changed, 4 insertions(+), 8 deletions(-) diff --git a/code/signal.lisp b/code/signal.lisp index a21be2e5f..95abd9e91 100644 --- a/code/signal.lisp +++ b/code/signal.lisp @@ -7,7 +7,7 @@ ;;; Scott Fahlman (FAHLMAN@CMUC). ;;; ********************************************************************** ;;; -;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/signal.lisp,v 1.9 1990/11/26 15:54:58 wlott Exp $ +;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/signal.lisp,v 1.10 1990/11/26 18:25:58 wlott Exp $ ;;; ;;; Code for handling UNIX signals. ;;; @@ -231,7 +231,7 @@ (define-signal-handler sigint-handler "Interrupted" break) (define-signal-handler sigill-handler "Illegal Instruction") -(define-signal-handler sigtrap-handler "SIGTRAP") +(define-signal-handler sigtrap-handler "Breakpoint/Trap") (define-signal-handler sigiot-handler "SIGIOT") (define-signal-handler sigemt-handler "SIGEMT") (define-signal-handler sigbus-handler "Bus Error") @@ -249,12 +249,8 @@ (unless (member "-monitor" lisp::lisp-command-line-list :test #'string=) (enable-interrupt :sigint #'sigint-handler)) (enable-interrupt :sigquit #'sigquit-handler) - (enable-interrupt :sigill - #+sparc #'kernel::internal-error - #-sparc #'sigill-handler) - (enable-interrupt :sigtrap - #+pmax #'kernel::internal-error - #-pmax #'sigtrap-handler) + (enable-interrupt :sigill #'sigill-handler) + (enable-interrupt :sigtrap #'sigtrap-handler) (enable-interrupt :sigiot #'sigiot-handler) (enable-interrupt :sigemt #'sigemt-handler) (enable-interrupt :sigfpe #'vm:sigfpe-handler) -- GitLab