Fixes for compilation with gcc 15

[micropolis] / src / tcl / tclcmdah.c

diff --git a/src/tcl/tclcmdah.c b/src/tcl/tclcmdah.c
index d1bf65fc868ca9322c4254141ff07ab6f46422bd..3cbb8fd8b61e937240b477ae2dc8a58837779108 100644 (file)
--- a/src/tcl/tclcmdah.c
+++ b/src/tcl/tclcmdah.c
@@ -40,12 +40,13 @@ static char rcsid[] = "$Header: /user6/ouster/tcl/RCS/tclCmdAH.c,v 1.76 92/07/06
  */
 
        /* ARGSUSED */
-int
-Tcl_BreakCmd(dummy, interp, argc, argv)
-    ClientData dummy;                  /* Not used. */
-    Tcl_Interp *interp;                        /* Current interpreter. */
-    int argc;                          /* Number of arguments. */
-    char **argv;                       /* Argument strings. */
+int 
+Tcl_BreakCmd (
+    ClientData dummy,                  /* Not used. */
+    Tcl_Interp *interp,                        /* Current interpreter. */
+    int argc,                          /* Number of arguments. */
+    char **argv                        /* Argument strings. */
+)
 {
     if (argc != 1) {
        Tcl_AppendResult(interp, "wrong # args: should be \"",
@@ -73,12 +74,13 @@ Tcl_BreakCmd(dummy, interp, argc, argv)
  */
 
        /* ARGSUSED */
-int
-Tcl_CaseCmd(dummy, interp, argc, argv)
-    ClientData dummy;                  /* Not used. */
-    Tcl_Interp *interp;                        /* Current interpreter. */
-    int argc;                          /* Number of arguments. */
-    char **argv;                       /* Argument strings. */
+int 
+Tcl_CaseCmd (
+    ClientData dummy,                  /* Not used. */
+    Tcl_Interp *interp,                        /* Current interpreter. */
+    int argc,                          /* Number of arguments. */
+    char **argv                        /* Argument strings. */
+)
 {
     int i, result;
     int body;
@@ -213,12 +215,13 @@ Tcl_CaseCmd(dummy, interp, argc, argv)
  */
 
        /* ARGSUSED */
-int
-Tcl_CatchCmd(dummy, interp, argc, argv)
-    ClientData dummy;                  /* Not used. */
-    Tcl_Interp *interp;                        /* Current interpreter. */
-    int argc;                          /* Number of arguments. */
-    char **argv;                       /* Argument strings. */
+int 
+Tcl_CatchCmd (
+    ClientData dummy,                  /* Not used. */
+    Tcl_Interp *interp,                        /* Current interpreter. */
+    int argc,                          /* Number of arguments. */
+    char **argv                        /* Argument strings. */
+)
 {
     int result;
 
@@ -258,12 +261,13 @@ Tcl_CatchCmd(dummy, interp, argc, argv)
  */
 
        /* ARGSUSED */
-int
-Tcl_ConcatCmd(dummy, interp, argc, argv)
-    ClientData dummy;                  /* Not used. */
-    Tcl_Interp *interp;                        /* Current interpreter. */
-    int argc;                          /* Number of arguments. */
-    char **argv;                       /* Argument strings. */
+int 
+Tcl_ConcatCmd (
+    ClientData dummy,                  /* Not used. */
+    Tcl_Interp *interp,                        /* Current interpreter. */
+    int argc,                          /* Number of arguments. */
+    char **argv                        /* Argument strings. */
+)
 {
     if (argc == 1) {
        Tcl_AppendResult(interp, "wrong # args: should be \"", argv[0],
@@ -294,12 +298,13 @@ Tcl_ConcatCmd(dummy, interp, argc, argv)
  */
 
        /* ARGSUSED */
-int
-Tcl_ContinueCmd(dummy, interp, argc, argv)
-    ClientData dummy;                  /* Not used. */
-    Tcl_Interp *interp;                        /* Current interpreter. */
-    int argc;                          /* Number of arguments. */
-    char **argv;                       /* Argument strings. */
+int 
+Tcl_ContinueCmd (
+    ClientData dummy,                  /* Not used. */
+    Tcl_Interp *interp,                        /* Current interpreter. */
+    int argc,                          /* Number of arguments. */
+    char **argv                        /* Argument strings. */
+)
 {
     if (argc != 1) {
        Tcl_AppendResult(interp, "wrong # args: should be \"", argv[0],
@@ -327,12 +332,13 @@ Tcl_ContinueCmd(dummy, interp, argc, argv)
  */
 
        /* ARGSUSED */
-int
-Tcl_ErrorCmd(dummy, interp, argc, argv)
-    ClientData dummy;                  /* Not used. */
-    Tcl_Interp *interp;                        /* Current interpreter. */
-    int argc;                          /* Number of arguments. */
-    char **argv;                       /* Argument strings. */
+int 
+Tcl_ErrorCmd (
+    ClientData dummy,                  /* Not used. */
+    Tcl_Interp *interp,                        /* Current interpreter. */
+    int argc,                          /* Number of arguments. */
+    char **argv                        /* Argument strings. */
+)
 {
     Interp *iPtr = (Interp *) interp;
 
@@ -372,12 +378,13 @@ Tcl_ErrorCmd(dummy, interp, argc, argv)
  */
 
        /* ARGSUSED */
-int
-Tcl_EvalCmd(dummy, interp, argc, argv)
-    ClientData dummy;                  /* Not used. */
-    Tcl_Interp *interp;                        /* Current interpreter. */
-    int argc;                          /* Number of arguments. */
-    char **argv;                       /* Argument strings. */
+int 
+Tcl_EvalCmd (
+    ClientData dummy,                  /* Not used. */
+    Tcl_Interp *interp,                        /* Current interpreter. */
+    int argc,                          /* Number of arguments. */
+    char **argv                        /* Argument strings. */
+)
 {
     int result;
     char *cmd;
@@ -426,12 +433,13 @@ Tcl_EvalCmd(dummy, interp, argc, argv)
  */
 
        /* ARGSUSED */
-int
-Tcl_ExprCmd(dummy, interp, argc, argv)
-    ClientData dummy;                  /* Not used. */
-    Tcl_Interp *interp;                        /* Current interpreter. */
-    int argc;                          /* Number of arguments. */
-    char **argv;                       /* Argument strings. */
+int 
+Tcl_ExprCmd (
+    ClientData dummy,                  /* Not used. */
+    Tcl_Interp *interp,                        /* Current interpreter. */
+    int argc,                          /* Number of arguments. */
+    char **argv                        /* Argument strings. */
+)
 {
     if (argc != 2) {
        Tcl_AppendResult(interp, "wrong # args: should be \"", argv[0],
@@ -460,12 +468,13 @@ Tcl_ExprCmd(dummy, interp, argc, argv)
  */
 
        /* ARGSUSED */
-int
-Tcl_ForCmd(dummy, interp, argc, argv)
-    ClientData dummy;                  /* Not used. */
-    Tcl_Interp *interp;                        /* Current interpreter. */
-    int argc;                          /* Number of arguments. */
-    char **argv;                       /* Argument strings. */
+int 
+Tcl_ForCmd (
+    ClientData dummy,                  /* Not used. */
+    Tcl_Interp *interp,                        /* Current interpreter. */
+    int argc,                          /* Number of arguments. */
+    char **argv                        /* Argument strings. */
+)
 {
     int result, value;
 
@@ -538,12 +547,13 @@ Tcl_ForCmd(dummy, interp, argc, argv)
  */
 
        /* ARGSUSED */
-int
-Tcl_ForeachCmd(dummy, interp, argc, argv)
-    ClientData dummy;                  /* Not used. */
-    Tcl_Interp *interp;                        /* Current interpreter. */
-    int argc;                          /* Number of arguments. */
-    char **argv;                       /* Argument strings. */
+int 
+Tcl_ForeachCmd (
+    ClientData dummy,                  /* Not used. */
+    Tcl_Interp *interp,                        /* Current interpreter. */
+    int argc,                          /* Number of arguments. */
+    char **argv                        /* Argument strings. */
+)
 {
     int listArgc, i, result;
     char **listArgv;
@@ -613,12 +623,13 @@ Tcl_ForeachCmd(dummy, interp, argc, argv)
  */
 
        /* ARGSUSED */
-int
-Tcl_FormatCmd(dummy, interp, argc, argv)
-    ClientData dummy;                  /* Not used. */
-    Tcl_Interp *interp;                        /* Current interpreter. */
-    int argc;                          /* Number of arguments. */
-    char **argv;                       /* Argument strings. */
+int 
+Tcl_FormatCmd (
+    ClientData dummy,                  /* Not used. */
+    Tcl_Interp *interp,                        /* Current interpreter. */
+    int argc,                          /* Number of arguments. */
+    char **argv                        /* Argument strings. */
+)
 {
     register char *format;     /* Used to read characters from the format
                                 * string. */