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