Skip to content
Snippets Groups Projects
Commit 954ae36a authored by pw's avatar pw
Browse files

Seems unix signal 6 is named SIGIOT but both FreeBSD and Linux

have this name as backward compatibilty. SIGABRT is now number 6.
This change makes SIGABRT current and retains SIGIOT for compatibilty.
parent 2ca06427
No related branches found
No related tags found
No related merge requests found
......@@ -5,7 +5,7 @@
;;; Carnegie Mellon University, and has been placed in the public domain.
;;;
(ext:file-comment
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/exports.lisp,v 1.173 2000/08/10 10:55:23 dtc Exp $")
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/exports.lisp,v 1.174 2000/08/24 16:39:30 pw Exp $")
;;;
;;; **********************************************************************
;;;
......@@ -255,7 +255,7 @@
"SIGTTOU" "EEXIST" "SIGPROF" "SIGSTOP" "ENETRESET" "SIGURG"
"ENOBUFS" "EPROCLIM" "EROFS" "ETOOMANYREFS" "UNIX-FILE-KIND"
"ELOCAL" "UNIX-SIGSETMASK" "EREMOTE" "ESOCKTNOSUPPORT"
"TIOCSIGSEND" "SIGWAITING"
"TIOCSIGSEND" "SIGWAITING" "SIGABRT"
"C-IFLAG" "UNIX-TCGETATTR" "C-LFLAG" "C-OFLAG" "C-CFLAG"
"TCSAFLUSH" "C-CC" "C-ISPEED" "C-OSPEED" "SIOCSPGRP" "TERMIOS"
"UNIX-TCSETATTR" "O_NDELAY" "O_NOCTTY"
......
......@@ -5,7 +5,7 @@
;;; Carnegie Mellon University, and has been placed in the public domain.
;;;
(ext:file-comment
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/signal.lisp,v 1.28 1999/12/04 16:02:36 dtc Exp $")
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/signal.lisp,v 1.29 2000/08/24 16:39:29 pw Exp $")
;;;
;;; **********************************************************************
;;;
......@@ -99,7 +99,8 @@
(def-unix-signal :SIGQUIT 3 "Quit")
(def-unix-signal :SIGILL 4 "Illegal instruction")
(def-unix-signal :SIGTRAP 5 "Trace trap")
(def-unix-signal :SIGIOT 6 "Iot instruction")
(def-unix-signal :SIGIOT 6 "Iot instruction") ; Compatibility
(def-unix-signal :SIGABRT 6 "C abort()")
#-linux
(def-unix-signal :SIGEMT 7 "Emt instruction")
(def-unix-signal :SIGFPE 8 "Floating point exception")
......@@ -265,7 +266,7 @@
(define-signal-handler sigint-handler "Interrupted" break)
(define-signal-handler sigill-handler "Illegal Instruction")
(define-signal-handler sigtrap-handler "Breakpoint/Trap")
(define-signal-handler sigiot-handler "SIGIOT")
(define-signal-handler sigabrt-handler "SIGABRT")
#-linux
(define-signal-handler sigemt-handler "SIGEMT")
(define-signal-handler sigbus-handler "Bus Error")
......@@ -286,7 +287,7 @@
(enable-interrupt :sigquit #'sigquit-handler)
(enable-interrupt :sigill #'sigill-handler)
(enable-interrupt :sigtrap #'sigtrap-handler)
(enable-interrupt :sigiot #'sigiot-handler)
(enable-interrupt :sigabrt #'sigabrt-handler)
#-linux
(enable-interrupt :sigemt #'sigemt-handler)
(enable-interrupt :sigfpe #'vm:sigfpe-handler)
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment