Merge trunk

jan.nijtmans · jan.nijtmans · commit 6f4c47908dfa · 2026-01-07T08:08:33.000Z
diff --git a/generic/itclHelpers.c b/generic/itclHelpers.c
@@ -139,7 +139,7 @@ ItclCreateArgList(
 		    Tcl_AppendResult(interp, "argument #", buf,
 			    " has no name", (char *)NULL);
 		}
-		Tcl_Free( defaultArgv);
+		Tcl_Free(defaultArgv);
 		result = TCL_ERROR;
 		break;
 	    }
@@ -148,15 +148,15 @@ ItclCreateArgList(
 		    "too many fields in argument specifier \"",
 		    argv[i], "\"",
 		    (char *)NULL);
-		Tcl_Free( defaultArgv);
+		Tcl_Free(defaultArgv);
 		result = TCL_ERROR;
 		break;
 	    }
 	    if (strstr(defaultArgv[0],"::")) {
 		Tcl_AppendResult(interp,
 			"bad argument name \"", defaultArgv[0], "\"",
 			(char *)NULL);
-		Tcl_Free( defaultArgv);
+		Tcl_Free(defaultArgv);
 		result = TCL_ERROR;
 		break;
 	    }
@@ -192,9 +192,9 @@ ItclCreateArgList(
 	    }
 	    lastArglistPtr = arglistPtr;
 	    i++;
-	    Tcl_Free( defaultArgv);
+	    Tcl_Free(defaultArgv);
 	}
-	Tcl_Free( argv);
+	Tcl_Free(argv);
     }
     /*
      *  If anything went wrong, destroy whatever arguments were

Original file line number	Diff line number	Diff line change
`@@ -139,7 +139,7 @@ ItclCreateArgList(`
`139`	`139`	`Tcl_AppendResult(interp, "argument #", buf,`
`140`	`140`	`" has no name", (char *)NULL);`
`141`	`141`	`}`
`142`		`- Tcl_Free( defaultArgv);`
	`142`	`+ Tcl_Free(defaultArgv);`
`143`	`143`	`result = TCL_ERROR;`
`144`	`144`	`break;`
`145`	`145`	`}`
`@@ -148,15 +148,15 @@ ItclCreateArgList(`
`148`	`148`	`"too many fields in argument specifier \"",`
`149`	`149`	`argv[i], "\"",`
`150`	`150`	`(char *)NULL);`
`151`		`- Tcl_Free( defaultArgv);`
	`151`	`+ Tcl_Free(defaultArgv);`
`152`	`152`	`result = TCL_ERROR;`
`153`	`153`	`break;`
`154`	`154`	`}`
`155`	`155`	`if (strstr(defaultArgv[0],"::")) {`
`156`	`156`	`Tcl_AppendResult(interp,`
`157`	`157`	`"bad argument name \"", defaultArgv[0], "\"",`
`158`	`158`	`(char *)NULL);`
`159`		`- Tcl_Free( defaultArgv);`
	`159`	`+ Tcl_Free(defaultArgv);`
`160`	`160`	`result = TCL_ERROR;`
`161`	`161`	`break;`
`162`	`162`	`}`
`@@ -192,9 +192,9 @@ ItclCreateArgList(`
`192`	`192`	`}`
`193`	`193`	`lastArglistPtr = arglistPtr;`
`194`	`194`	`i++;`
`195`		`- Tcl_Free( defaultArgv);`
	`195`	`+ Tcl_Free(defaultArgv);`
`196`	`196`	`}`
`197`		`- Tcl_Free( argv);`
	`197`	`+ Tcl_Free(argv);`
`198`	`198`	`}`
`199`	`199`	`/*`
`200`	`200`	`* If anything went wrong, destroy whatever arguments were`