Tcl Source Code

Artifact ce1255347cb423b4738e83e36061e181b60029dc:

Attachment "patch-siginfo" to ticket [1513655fff] added by kot 2006-06-28 05:35:19.

---

--- ../generic/tclPosixStr.c	Mon May 27 06:14:21 2002
+++ ../generic/tclPosixStr.c	Tue Jun 27 13:14:57 2006
@@ -1044,4 +1044,7 @@ Tcl_SignalId(sig)
 	case SIGXFSZ: return "SIGXFSZ";
 #endif
+#ifdef SIGINFO
+	case SIGINFO: return "SIGINFO";
+#endif
     }
     return "unknown signal";
@@ -1175,4 +1178,7 @@ Tcl_SignalMsg(sig)
 #ifdef SIGXFSZ
 	case SIGXFSZ: return "exceeded file size limit";
+#endif
+#ifdef SIGINFO
+	case SIGINFO: return "information/status request";
 #endif
     }