Fixes for compilation with gcc 15

[micropolis] / src / tclx / src / main.c

diff --git a/src/tclx/src/main.c b/src/tclx/src/main.c
index 6b26066276a43e99efee446a8e9300f967ca8943..8d2b61c79935ff75569cf968d209d4b742528d87 100644 (file)
--- a/src/tclx/src/main.c
+++ b/src/tclx/src/main.c
@@ -21,10 +21,22 @@
 
 #include "tclxtend.h"
 
 
 #include "tclxtend.h"
 

-int
-main(argc, argv)
-    int                argc;
-    CONST char **argv;
+int 
+TclX_RecordAndEval (
+    Tcl_Interp *interp,                /* Token for interpreter in which command
+                                * will be executed. */
+    char *cmd,                 /* Command to record. */
+    int flags,                 /* Additional flags to pass to Tcl_Eval. 
+                                * TCL_NO_EVAL means only record: don't
+                                * execute command. */
+    char **dummy
+)
+{
+       return Tcl_RecordAndEval(interp, cmd, flags);
+}
+
+int 
+main (int argc, CONST char **argv)

 {
     Tcl_Interp *interp;
 
 {
     Tcl_Interp *interp;
 


@@ -34,7 +46,7 @@ main(argc, argv)
      * also brings in history from libtcl.a.
      */
 #ifndef TCL_NOHISTORY
      * also brings in history from libtcl.a.
      */
 #ifndef TCL_NOHISTORY

-     tclShellCmdEvalProc = Tcl_RecordAndEval;
+     tclShellCmdEvalProc = TclX_RecordAndEval;

 #endif
 
     /* 
 #endif
 
     /*