From 954ae36af8c6a963fa3b10ec48767d728a433bab Mon Sep 17 00:00:00 2001 From: pw <pw> Date: Thu, 24 Aug 2000 16:39:30 +0000 Subject: [PATCH] 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. --- code/exports.lisp | 4 ++-- code/signal.lisp | 9 +++++---- 2 files changed, 7 insertions(+), 6 deletions(-) diff --git a/code/exports.lisp b/code/exports.lisp index 8f4fd22e3..0878ce56a 100644 --- a/code/exports.lisp +++ b/code/exports.lisp @@ -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" diff --git a/code/signal.lisp b/code/signal.lisp index 4cae9706f..55c36984e 100644 --- a/code/signal.lisp +++ b/code/signal.lisp @@ -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) -- GitLab