Fixes for compilation with gcc 15

[micropolis] / src / tcl / tclunxst.c

diff --git a/src/tcl/tclunxst.c b/src/tcl/tclunxst.c
index 89fb0cda4bc78d3fa8365b94dc0dff1a152e9660..6c65a8408d332011eda768593b35ffd88eccc0a3 100644 (file)
--- 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