Fixes for compilation with gcc 15

[micropolis] / src / tcl / tclbasic.c

diff --git a/src/tcl/tclbasic.c b/src/tcl/tclbasic.c
index 90a656d0affbedf4515a366c3a3d254688eb7026..4cbcfe99061b7d820b174e98f2e501ef4ccbfed9 100644 (file)
--- a/src/tcl/tclbasic.c
+++ b/src/tcl/tclbasic.c
@@ -128,7 +128,7 @@ static CmdInfo builtInCmds[] = {
  */
 
 Tcl_Interp *
  */
 
 Tcl_Interp *

-Tcl_CreateInterp()
+Tcl_CreateInterp (void)

 {
     register Interp *iPtr;
     register Command *cmdPtr;
 {
     register Interp *iPtr;
     register Command *cmdPtr;


@@ -216,10 +216,11 @@ Tcl_CreateInterp()
  *----------------------------------------------------------------------
  */
 
  *----------------------------------------------------------------------
  */
 

-void
-Tcl_DeleteInterp(interp)
-    Tcl_Interp *interp;                /* Token for command interpreter (returned
+void 
+Tcl_DeleteInterp (
+    Tcl_Interp *interp         /* Token for command interpreter (returned

                                 * by a previous call to Tcl_CreateInterp). */
                                 * by a previous call to Tcl_CreateInterp). */

+)

 {
     Interp *iPtr = (Interp *) interp;
     Tcl_HashEntry *hPtr;
 {
     Interp *iPtr = (Interp *) interp;
     Tcl_HashEntry *hPtr;


@@ -329,16 +330,17 @@ Tcl_DeleteInterp(interp)
  */
 
 void
  */
 
 void

-Tcl_CreateCommand(interp, cmdName, proc, clientData, deleteProc)
-    Tcl_Interp *interp;                /* Token for command interpreter (returned
+Tcl_CreateCommand(
+    Tcl_Interp *interp,                /* Token for command interpreter (returned

                                 * by a previous call to Tcl_CreateInterp). */
                                 * by a previous call to Tcl_CreateInterp). */

-    char *cmdName;             /* Name of command. */
-    Tcl_CmdProc *proc;         /* Command procedure to associate with
+    char *cmdName,             /* Name of command. */
+    Tcl_CmdProc *proc,         /* Command procedure to associate with

                                 * cmdName. */
                                 * cmdName. */

-    ClientData clientData;     /* Arbitrary one-word value to pass to proc. */
-    Tcl_CmdDeleteProc *deleteProc;
+    ClientData clientData,     /* Arbitrary one-word value to pass to proc. */
+    Tcl_CmdDeleteProc *deleteProc

                                /* If not NULL, gives a procedure to call when
                                 * this command is deleted. */
                                /* If not NULL, gives a procedure to call when
                                 * this command is deleted. */

+)

 {
     Interp *iPtr = (Interp *) interp;
     register Command *cmdPtr;
 {
     Interp *iPtr = (Interp *) interp;
     register Command *cmdPtr;


@@ -383,11 +385,12 @@ Tcl_CreateCommand(interp, cmdName, proc, clientData, deleteProc)
  *----------------------------------------------------------------------
  */
 
  *----------------------------------------------------------------------
  */
 

-int
-Tcl_DeleteCommand(interp, cmdName)
-    Tcl_Interp *interp;                /* Token for command interpreter (returned
+int 
+Tcl_DeleteCommand (
+    Tcl_Interp *interp,                /* Token for command interpreter (returned

                                 * by a previous call to Tcl_CreateInterp). */
                                 * by a previous call to Tcl_CreateInterp). */

-    char *cmdName;             /* Name of command to remove. */
+    char *cmdName              /* Name of command to remove. */
+)

 {
     Interp *iPtr = (Interp *) interp;
     Tcl_HashEntry *hPtr;
 {
     Interp *iPtr = (Interp *) interp;
     Tcl_HashEntry *hPtr;


@@ -428,17 +431,18 @@ Tcl_DeleteCommand(interp, cmdName)
  *-----------------------------------------------------------------
  */
 
  *-----------------------------------------------------------------
  */
 

-int
-Tcl_Eval(interp, cmd, flags, termPtr)
-    Tcl_Interp *interp;                /* Token for command interpreter (returned
+int 
+Tcl_Eval (
+    Tcl_Interp *interp,                /* Token for command interpreter (returned

                                 * by a previous call to Tcl_CreateInterp). */
                                 * by a previous call to Tcl_CreateInterp). */

-    char *cmd;                 /* Pointer to TCL command to interpret. */
-    int flags;                 /* OR-ed combination of flags like
+    char *cmd,                 /* Pointer to TCL command to interpret. */
+    int flags,                 /* OR-ed combination of flags like

                                 * TCL_BRACKET_TERM and TCL_RECORD_BOUNDS. */
                                 * TCL_BRACKET_TERM and TCL_RECORD_BOUNDS. */

-    char **termPtr;            /* If non-NULL, fill in the address it points
+    char **termPtr             /* If non-NULL, fill in the address it points

                                 * to with the address of the char. just after
                                 * the last one that was part of cmd.  See
                                 * the man page for details on this. */
                                 * to with the address of the char. just after
                                 * the last one that was part of cmd.  See
                                 * the man page for details on this. */

+)

 {
     /*
      * The storage immediately below is used to generate a copy
 {
     /*
      * The storage immediately below is used to generate a copy


@@ -840,13 +844,14 @@ Tcl_Eval(interp, cmd, flags, termPtr)
  */
 
 Tcl_Trace
  */
 
 Tcl_Trace

-Tcl_CreateTrace(interp, level, proc, clientData)
-    Tcl_Interp *interp;                /* Interpreter in which to create the trace. */
-    int level;                 /* Only call proc for commands at nesting level
+Tcl_CreateTrace(
+    Tcl_Interp *interp,                /* Interpreter in which to create the trace. */
+    int level,                 /* Only call proc for commands at nesting level

                                 * <= level (1 => top level). */
                                 * <= level (1 => top level). */

-    Tcl_CmdTraceProc *proc;    /* Procedure to call before executing each
+    Tcl_CmdTraceProc *proc,    /* Procedure to call before executing each

                                 * command. */
                                 * command. */

-    ClientData clientData;     /* Arbitrary one-word value to pass to proc. */
+    ClientData clientData      /* Arbitrary one-word value to pass to proc. */
+)

 {
     register Trace *tracePtr;
     register Interp *iPtr = (Interp *) interp;
 {
     register Trace *tracePtr;
     register Interp *iPtr = (Interp *) interp;


@@ -878,11 +883,12 @@ Tcl_CreateTrace(interp, level, proc, clientData)
  *----------------------------------------------------------------------
  */
 
  *----------------------------------------------------------------------
  */
 

-void
-Tcl_DeleteTrace(interp, trace)
-    Tcl_Interp *interp;                /* Interpreter that contains trace. */
-    Tcl_Trace trace;           /* Token for trace (returned previously by
+void 
+Tcl_DeleteTrace (
+    Tcl_Interp *interp,                /* Interpreter that contains trace. */
+    Tcl_Trace trace            /* Token for trace (returned previously by

                                 * Tcl_CreateTrace). */
                                 * Tcl_CreateTrace). */

+)

 {
     register Interp *iPtr = (Interp *) interp;
     register Trace *tracePtr = (Trace *) trace;
 {
     register Interp *iPtr = (Interp *) interp;
     register Trace *tracePtr = (Trace *) trace;


@@ -922,11 +928,12 @@ Tcl_DeleteTrace(interp, trace)
  *----------------------------------------------------------------------
  */
 
  *----------------------------------------------------------------------
  */
 

-void
-Tcl_AddErrorInfo(interp, message)
-    Tcl_Interp *interp;                /* Interpreter to which error information
+void 
+Tcl_AddErrorInfo (
+    Tcl_Interp *interp,                /* Interpreter to which error information

                                 * pertains. */
                                 * pertains. */

-    char *message;             /* Message to record. */
+    char *message              /* Message to record. */
+)

 {
     register Interp *iPtr = (Interp *) interp;
 
 {
     register Interp *iPtr = (Interp *) interp;
 


@@ -1046,10 +1053,11 @@ Tcl_VarEval(Tcl_Interp *interp, ...)
  *----------------------------------------------------------------------
  */
 
  *----------------------------------------------------------------------
  */
 

-int
-Tcl_GlobalEval(interp, command)
-    Tcl_Interp *interp;                /* Interpreter in which to evaluate command. */
-    char *command;             /* Command to evaluate. */
+int 
+Tcl_GlobalEval (
+    Tcl_Interp *interp,                /* Interpreter in which to evaluate command. */
+    char *command              /* Command to evaluate. */
+)

 {
     register Interp *iPtr = (Interp *) interp;
     int result;
 {
     register Interp *iPtr = (Interp *) interp;
     int result;