X-Git-Url: http://git.zerfleddert.de/cgi-bin/gitweb.cgi/micropolis/blobdiff_plain/6a5fa4e03967ab980cdc7ef96a42400bc29b4414..176c45720f3b9e5555fe1084d3e6ea59488c1785:/src/tcl/tclunxst.c

diff --git a/src/tcl/tclunxst.c b/src/tcl/tclunxst.c
index 89fb0cd..6c65a84 100644
--- a/src/tcl/tclunxst.c
+++ b/src/tcl/tclunxst.c
@@ -41,7 +41,7 @@ static char rcsid[] = "$Header: /user6/ouster/tcl/RCS/tclUnixStr.c,v 1.12 92/04/
  */
 
 char *
-Tcl_ErrnoId()
+Tcl_ErrnoId (void)
 {
     switch (errno) {
 #ifdef E2BIG
@@ -484,8 +484,9 @@ Tcl_ErrnoId()
  */
 
 char *
-Tcl_SignalId(sig)
-    int sig;			/* Number of signal. */
+Tcl_SignalId (
+    int sig			/* Number of signal. */
+)
 {
     switch (sig) {
 #ifdef SIGABRT
@@ -530,7 +531,7 @@ Tcl_SignalId(sig)
 #ifdef SIGKILL
 	case SIGKILL: return "SIGKILL";
 #endif
-#if defined(SIGLOST) && (!defined(SIGIOT) || (SIGLOST != SIGIOT))
+#if defined(SIGLOST) && (!defined(SIGIOT) || (SIGLOST != SIGIOT)) && (!defined(SIGPWR) || (SIGLOST != SIGPWR))
 	case SIGLOST: return "SIGLOST";
 #endif
 #ifdef SIGPIPE
@@ -616,8 +617,9 @@ Tcl_SignalId(sig)
  */
 
 char *
-Tcl_SignalMsg(sig)
-    int sig;			/* Number of signal. */
+Tcl_SignalMsg (
+    int sig			/* Number of signal. */
+)
 {
     switch (sig) {
 #ifdef SIGABRT
@@ -662,7 +664,7 @@ Tcl_SignalMsg(sig)
 #ifdef SIGKILL
 	case SIGKILL: return "kill signal";
 #endif
-#if defined(SIGLOST) && (!defined(SIGIOT) || (SIGLOST != SIGIOT))
+#if defined(SIGLOST) && (!defined(SIGIOT) || (SIGLOST != SIGIOT)) && (!defined(SIGPWR) || (SIGLOST != SIGPWR))
 	case SIGLOST: return "resource lost";
 #endif
 #ifdef SIGPIPE