Fixes for compilation with gcc 15

[micropolis] / src / tcl / tclproc.c

diff --git a/src/tcl/tclproc.c b/src/tcl/tclproc.c
index eb94c3b8297651db103366ff65d8f220b9a1de11..e5e3247aa3f23bfd6c7606fd960f7860e71c86a9 100644 (file)
--- a/src/tcl/tclproc.c
+++ b/src/tcl/tclproc.c
@@ -46,12 +46,13 @@ static  void        ProcDeleteProc _ANSI_ARGS_((ClientData clientData));
  */
 
        /* ARGSUSED */
-int
-Tcl_ProcCmd(dummy, interp, argc, argv)
-    ClientData dummy;                  /* Not used. */
-    Tcl_Interp *interp;                        /* Current interpreter. */
-    int argc;                          /* Number of arguments. */
-    char **argv;                       /* Argument strings. */
+int 
+Tcl_ProcCmd (
+    ClientData dummy,                  /* Not used. */
+    Tcl_Interp *interp,                        /* Current interpreter. */
+    int argc,                          /* Number of arguments. */
+    char **argv                        /* Argument strings. */
+)
 {
     register Interp *iPtr = (Interp *) interp;
     register Proc *procPtr;
@@ -181,12 +182,13 @@ Tcl_ProcCmd(dummy, interp, argc, argv)
  *----------------------------------------------------------------------
  */
 
-int
-TclGetFrame(interp, string, framePtrPtr)
-    Tcl_Interp *interp;                /* Interpreter in which to find frame. */
-    char *string;              /* String describing frame. */
-    CallFrame **framePtrPtr;   /* Store pointer to frame here (or NULL
+int 
+TclGetFrame (
+    Tcl_Interp *interp,                /* Interpreter in which to find frame. */
+    char *string,              /* String describing frame. */
+    CallFrame **framePtrPtr    /* Store pointer to frame here (or NULL
                                 * if global frame indicated). */
+)
 {
     register Interp *iPtr = (Interp *) interp;
     int level, result;
@@ -262,12 +264,13 @@ TclGetFrame(interp, string, framePtrPtr)
  */
 
        /* ARGSUSED */
-int
-Tcl_UplevelCmd(dummy, interp, argc, argv)
-    ClientData dummy;                  /* Not used. */
-    Tcl_Interp *interp;                        /* Current interpreter. */
-    int argc;                          /* Number of arguments. */
-    char **argv;                       /* Argument strings. */
+int 
+Tcl_UplevelCmd (
+    ClientData dummy,                  /* Not used. */
+    Tcl_Interp *interp,                        /* Current interpreter. */
+    int argc,                          /* Number of arguments. */
+    char **argv                        /* Argument strings. */
+)
 {
     register Interp *iPtr = (Interp *) interp;
     int result;
@@ -348,9 +351,10 @@ Tcl_UplevelCmd(dummy, interp, argc, argv)
  */
 
 Proc *
-TclFindProc(iPtr, procName)
-    Interp *iPtr;              /* Interpreter in which to look. */
-    char *procName;            /* Name of desired procedure. */
+TclFindProc (
+    Interp *iPtr,              /* Interpreter in which to look. */
+    char *procName             /* Name of desired procedure. */
+)
 {
     Tcl_HashEntry *hPtr;
     Command *cmdPtr;
@@ -385,8 +389,9 @@ TclFindProc(iPtr, procName)
  */
 
 Proc *
-TclIsProc(cmdPtr)
-    Command *cmdPtr;           /* Command to test. */
+TclIsProc (
+    Command *cmdPtr            /* Command to test. */
+)
 {
     if (cmdPtr->proc == InterpProc) {
        return (Proc *) cmdPtr->clientData;
@@ -411,15 +416,16 @@ TclIsProc(cmdPtr)
  *----------------------------------------------------------------------
  */
 
-static int
-InterpProc(clientData, interp, argc, argv)
-    ClientData clientData;     /* Record describing procedure to be
+static int 
+InterpProc (
+    ClientData clientData,     /* Record describing procedure to be
                                 * interpreted. */
-    Tcl_Interp *interp;                /* Interpreter in which procedure was
+    Tcl_Interp *interp,                /* Interpreter in which procedure was
                                 * invoked. */
-    int argc;                  /* Count of number of arguments to this
+    int argc,                  /* Count of number of arguments to this
                                 * procedure. */
-    char **argv;               /* Argument values. */
+    char **argv                /* Argument values. */
+)
 {
     register Proc *procPtr = (Proc *) clientData;
     register Arg *argPtr;
@@ -549,9 +555,10 @@ InterpProc(clientData, interp, argc, argv)
  *----------------------------------------------------------------------
  */
 
-static void
-ProcDeleteProc(clientData)
-    ClientData clientData;             /* Procedure to be deleted. */
+static void 
+ProcDeleteProc (
+    ClientData clientData              /* Procedure to be deleted. */
+)
 {
     register Proc *procPtr = (Proc *) clientData;
     register Arg *argPtr;