Fixes for compilation with gcc 15

[micropolis] / src / tcl / tclunxut.c

diff --git a/src/tcl/tclunxut.c b/src/tcl/tclunxut.c
index 6bc760bab002bec613b8e0345c7250acefa8e1ee..7fee7c3260a18135a78dc1c907de229e5bbfb67d 100644 (file)
--- a/src/tcl/tclunxut.c
+++ b/src/tcl/tclunxut.c
@@ -81,11 +81,12 @@ static int waitTableUsed = 0;       /* Number of entries in waitTable that
  *----------------------------------------------------------------------
  */
 
-int
-Tcl_EvalFile(interp, fileName)
-    Tcl_Interp *interp;                /* Interpreter in which to process file. */
-    char *fileName;            /* Name of file to process.  Tilde-substitution
+int 
+Tcl_EvalFile (
+    Tcl_Interp *interp,                /* Interpreter in which to process file. */
+    char *fileName             /* Name of file to process.  Tilde-substitution
                                 * will be performed on this name. */
+)
 {
     int fileId, result;
     struct stat statBuf;
@@ -253,12 +254,13 @@ Tcl_Fork()
  */
 
 int
-Tcl_WaitPids(numPids, pidPtr, statusPtr)
-    int numPids;               /* Number of pids to wait on:  gives size
+Tcl_WaitPids(
+    int numPids,               /* Number of pids to wait on:  gives size
                                 * of array pointed to by pidPtr. */
-    int *pidPtr;               /* Pids to wait on:  return when one of
+    int *pidPtr,               /* Pids to wait on:  return when one of
                                 * these processes exits or suspends. */
-    int *statusPtr;            /* Wait status is returned here. */
+    int *statusPtr             /* Wait status is returned here. */
+)
 {
     int i, count, pid;
     register WaitInfo *waitPtr;
@@ -363,11 +365,12 @@ Tcl_WaitPids(numPids, pidPtr, statusPtr)
  */
 
 void
-Tcl_DetachPids(numPids, pidPtr)
-    int numPids;               /* Number of pids to detach:  gives size
+Tcl_DetachPids(
+    int numPids,               /* Number of pids to detach:  gives size
                                 * of array pointed to by pidPtr. */
-    int *pidPtr;               /* Array of pids to detach:  must have
+    int *pidPtr                        /* Array of pids to detach:  must have
                                 * been created by Tcl_Fork. */
+)
 {
     register WaitInfo *waitPtr;
     int i, count, pid;
@@ -431,30 +434,29 @@ Tcl_DetachPids(numPids, pidPtr)
  */
 
 int
-Tcl_CreatePipeline(interp, argc, argv, pidArrayPtr, inPipePtr,
-       outPipePtr, errFilePtr)
-    Tcl_Interp *interp;                /* Interpreter to use for error reporting. */
-    int argc;                  /* Number of entries in argv. */
-    char **argv;               /* Array of strings describing commands in
+Tcl_CreatePipeline(
+    Tcl_Interp *interp,                /* Interpreter to use for error reporting. */
+    int argc,                  /* Number of entries in argv. */
+    char **argv,               /* Array of strings describing commands in
                                 * pipeline plus I/O redirection with <,
                                 * <<, and >.  Argv[argc] must be NULL. */
-    int **pidArrayPtr;         /* Word at *pidArrayPtr gets filled in with
+    int **pidArrayPtr,         /* Word at *pidArrayPtr gets filled in with
                                 * address of array of pids for processes
                                 * in pipeline (first pid is first process
                                 * in pipeline). */
-    int *inPipePtr;            /* If non-NULL, input to the pipeline comes
+    int *inPipePtr,            /* If non-NULL, input to the pipeline comes
                                 * from a pipe (unless overridden by
                                 * redirection in the command).  The file
                                 * id with which to write to this pipe is
                                 * stored at *inPipePtr.  -1 means command
                                 * specified its own input source. */
-    int *outPipePtr;           /* If non-NULL, output to the pipeline goes
+    int *outPipePtr,           /* If non-NULL, output to the pipeline goes
                                 * to a pipe, unless overriden by redirection
                                 * in the command.  The file id with which to
                                 * read frome this pipe is stored at
                                 * *outPipePtr.  -1 means command specified
                                 * its own output sink. */
-    int *errFilePtr;           /* If non-NULL, all stderr output from the
+    int *errFilePtr            /* If non-NULL, all stderr output from the
                                 * pipeline will go to a temporary file
                                 * created here, and a descriptor to read
                                 * the file will be left at *errFilePtr.
@@ -462,6 +464,7 @@ Tcl_CreatePipeline(interp, argc, argv, pidArrayPtr, inPipePtr,
                                 * closing this descriptor will be the end
                                 * of the file.  If this is NULL, then
                                 * all stderr output goes to our stderr. */
+)
 {
     int *pidPtr = NULL;                /* Points to malloc-ed array holding all
                                 * the pids of child processes. */
@@ -843,9 +846,10 @@ cleanup:
  */
 
 char *
-Tcl_UnixError(interp)
-    Tcl_Interp *interp;                /* Interpreter whose $errorCode variable
+Tcl_UnixError(
+    Tcl_Interp *interp         /* Interpreter whose $errorCode variable
                                 * is to be changed. */
+)
 {
     char *id, *msg;
 
@@ -875,11 +879,12 @@ Tcl_UnixError(interp)
  */
 
 void
-TclMakeFileTable(iPtr, index)
-    Interp *iPtr;              /* Interpreter whose table of files is
+TclMakeFileTable(
+    Interp *iPtr,              /* Interpreter whose table of files is
                                 * to be manipulated. */
-    int index;                 /* Make sure table is large enough to
+    int index                  /* Make sure table is large enough to
                                 * hold at least this index. */
+)
 {
     /*
      * If the table doesn't even exist, then create it and initialize
@@ -970,11 +975,12 @@ TclMakeFileTable(iPtr, index)
  */
 
 int
-TclGetOpenFile(interp, string, filePtrPtr)
-    Tcl_Interp *interp;                /* Interpreter in which to find file. */
-    char *string;              /* String that identifies file. */
-    OpenFile **filePtrPtr;     /* Address of word in which to store pointer
+TclGetOpenFile(
+    Tcl_Interp *interp,                /* Interpreter in which to find file. */
+    char *string,              /* String that identifies file. */
+    OpenFile **filePtrPtr      /* Address of word in which to store pointer
                                 * to structure about open file. */
+)
 {
     int fd = 0;                        /* Initial value needed only to stop compiler
                                 * warnings. */