Tcl Source Code

Artifact [6f360c75e7]
Login

Artifact 6f360c75e7f83f2c471cbc31174c208eb10be4bd:

Attachment "haiku.patch" to ticket [2882561fff] added by brlcad 2009-10-21 01:06:31.
Index: generic/tclPosixStr.c
===================================================================
--- generic/tclPosixStr.c	(revision 36222)
+++ generic/tclPosixStr.c	(working copy)
@@ -994,7 +994,7 @@
 #ifdef SIGQUIT
     case SIGQUIT: return "SIGQUIT";
 #endif
-#ifdef SIGSEGV
+#if defined(SIGSEGV) && (!defined(SIGBUS) || (SIGSEGV != SIGBUS))
     case SIGSEGV: return "SIGSEGV";
 #endif
 #ifdef SIGSTOP
@@ -1125,7 +1125,7 @@
 #ifdef SIGQUIT
     case SIGQUIT: return "quit signal";
 #endif
-#ifdef SIGSEGV
+#if defined(SIGSEGV) && (!defined(SIGBUS) || (SIGSEGV != SIGBUS))
     case SIGSEGV: return "segmentation violation";
 #endif
 #ifdef SIGSTOP