diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2020-03-07 16:03:16 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2020-03-07 16:03:16 (GMT) |
| commit | 2c34ced219c028ad38fe079b9000f31049a0a42c (patch) | |
| tree | 4b5502463d16f3b5094ef9c11eea1deb97ec35dd /generic/tclLoad.c | |
| parent | c4a1ea568ee92b0d890bb012f44b345c80f25fa8 (diff) | |
| parent | 467d03dbc94f1e8b6ec74da6ac0f54ce4975bf10 (diff) | |
| download | tcl-2c34ced219c028ad38fe079b9000f31049a0a42c.zip tcl-2c34ced219c028ad38fe079b9000f31049a0a42c.tar.gz tcl-2c34ced219c028ad38fe079b9000f31049a0a42c.tar.bz2 | |
Merge 8.7
Diffstat (limited to 'generic/tclLoad.c')
| -rw-r--r-- | generic/tclLoad.c | 9 |
1 files changed, 3 insertions, 6 deletions
diff --git a/generic/tclLoad.c b/generic/tclLoad.c index bc02a2e..f02cebc 100644 --- a/generic/tclLoad.c +++ b/generic/tclLoad.c @@ -115,7 +115,7 @@ static void LoadCleanupProc(ClientData clientData, int Tcl_LoadObjCmd( - ClientData dummy, /* Not used. */ + TCL_UNUSED(ClientData), Tcl_Interp *interp, /* Current interpreter. */ int objc, /* Number of arguments. */ Tcl_Obj *const objv[]) /* Argument objects. */ @@ -140,7 +140,6 @@ Tcl_LoadObjCmd( enum options { LOAD_GLOBAL, LOAD_LAZY, LOAD_LAST }; - (void)dummy; while (objc > 2) { if (TclGetString(objv[1])[0] != '-') { @@ -541,7 +540,7 @@ Tcl_LoadObjCmd( int Tcl_UnloadObjCmd( - ClientData dummy, /* Not used. */ + TCL_UNUSED(ClientData), Tcl_Interp *interp, /* Current interpreter. */ int objc, /* Number of arguments. */ Tcl_Obj *const objv[]) /* Argument objects. */ @@ -561,7 +560,6 @@ Tcl_UnloadObjCmd( enum options { UNLOAD_NOCOMPLAIN, UNLOAD_KEEPLIB, UNLOAD_LAST }; - (void)dummy; for (i = 1; i < objc; i++) { if (Tcl_GetIndexFromObj(interp, objv[i], options, "option", 0, @@ -1152,10 +1150,9 @@ static void LoadCleanupProc( ClientData clientData, /* Pointer to first InterpPackage structure * for interp. */ - Tcl_Interp *dummy) /* Interpreter that is being deleted. */ + TCL_UNUSED(Tcl_Interp *)) { InterpPackage *ipPtr, *nextPtr; - (void)dummy; ipPtr = (InterpPackage *)clientData; while (ipPtr != NULL) { |