Fixes for compilation with gcc 15

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

diff --git a/src/tclx/src/tclxdebg.c b/src/tclx/src/tclxdebg.c
index 55e2590d3ec4d55d511943d6b874223d0ded0eac..882e6e8a786ea76ac7983621ed75ab0b7064bd7b 100644 (file)
--- a/src/tclx/src/tclxdebg.c
+++ b/src/tclx/src/tclxdebg.c
@@ -78,11 +78,8 @@ CleanUpDebug _ANSI_ARGS_((ClientData clientData));
  *
  *-----------------------------------------------------------------------------
  */
-void
-PrintStr (filePtr, string, numChars)
-    FILE *filePtr;
-    char *string;
-    int   numChars;
+void 
+PrintStr (FILE *filePtr, char *string, int numChars)
 {
     int idx;
 
@@ -107,11 +104,8 @@ PrintStr (filePtr, string, numChars)
  *
  *-----------------------------------------------------------------------------
  */
-void
-PrintArg (filePtr, argStr, noTruncate)
-    FILE *filePtr;
-    char *argStr;
-    int   noTruncate;
+void 
+PrintArg (FILE *filePtr, char *argStr, int noTruncate)
 {
     int idx, argLen, printLen;
     int quote_it;
@@ -145,13 +139,8 @@ PrintArg (filePtr, argStr, noTruncate)
  * 
  *-----------------------------------------------------------------------------
  */
-void
-TraceCode (traceInfoPtr, level, command, argc, argv)
-    traceInfo_pt traceInfoPtr;
-    int          level;
-    char        *command;
-    int          argc;
-    char       **argv;
+void 
+TraceCode (traceInfo_pt traceInfoPtr, int level, char *command, int argc, char **argv)
 {
     int idx, cmdLen, printLen;
 
@@ -192,16 +181,16 @@ TraceCode (traceInfoPtr, level, command, argc, argv)
  *-----------------------------------------------------------------------------
  */
 void
-CmdTraceRoutine (clientData, interp, level, command, cmdProc, cmdClientData, 
-                 argc, argv)
-    ClientData    clientData;
-    Tcl_Interp   *interp;
-    int           level;
-    char         *command;
-    Tcl_CmdProc  *cmdProc;
-    ClientData    cmdClientData;
-    int           argc;
-    char        **argv;
+CmdTraceRoutine (
+    ClientData    clientData,
+    Tcl_Interp   *interp,
+    int           level,
+    char         *command,
+    Tcl_CmdProc  *cmdProc,
+    ClientData    cmdClientData,
+    int           argc,
+    char        **argv
+)
 {
     Interp       *iPtr = (Interp *) interp;
     traceInfo_pt  traceInfoPtr = (traceInfo_pt) clientData;
@@ -233,11 +222,12 @@ CmdTraceRoutine (clientData, interp, level, command, cmdProc, cmdClientData,
  *-----------------------------------------------------------------------------
  */
 static int
-Tcl_CmdtraceCmd (clientData, interp, argc, argv)
-    ClientData    clientData;
-    Tcl_Interp   *interp;
-    int           argc;
-    char        **argv;
+Tcl_CmdtraceCmd (
+    ClientData    clientData,
+    Tcl_Interp   *interp,
+    int           argc,
+    char        **argv
+)
 {
     Interp       *iPtr = (Interp *) interp;
     traceInfo_pt  infoPtr = (traceInfo_pt) clientData;
@@ -364,8 +354,9 @@ invalidOption:
  *-----------------------------------------------------------------------------
  */
 void
-CleanUpDebug (clientData)
-    ClientData clientData;
+CleanUpDebug (
+    ClientData clientData
+)
 {
     traceInfo_pt infoPtr = (traceInfo_pt) clientData;
 
@@ -383,9 +374,8 @@ CleanUpDebug (clientData)
  *
  *-----------------------------------------------------------------------------
  */
-void
-Tcl_InitDebug (interp)
-    Tcl_Interp *interp;
+void 
+Tcl_InitDebug (Tcl_Interp *interp)
 {
     traceInfo_pt infoPtr;