From 3f741fda0387c3b85fd1d5c3d0a1a4876f455386 Mon Sep 17 00:00:00 2001 From: dgp Date: Fri, 6 Mar 2020 19:58:14 +0000 Subject: (no comment) --- generic/tclEnsemble.c | 9 +++------ 1 file changed, 3 insertions(+), 6 deletions(-) diff --git a/generic/tclEnsemble.c b/generic/tclEnsemble.c index 654f33e..b9c71a0 100644 --- a/generic/tclEnsemble.c +++ b/generic/tclEnsemble.c @@ -151,7 +151,7 @@ NewNsObj( int TclNamespaceEnsembleCmd( - ClientData dummy, /* Not used. */ + TCL_UNUSED(ClientData), Tcl_Interp *interp, int objc, Tcl_Obj *const objv[]) @@ -164,7 +164,6 @@ TclNamespaceEnsembleCmd( Tcl_Obj *listObj; const char *simpleName; int index, done; - (void)dummy; if (nsPtr == NULL || nsPtr->flags & NS_DYING) { if (!Tcl_InterpDeleted(interp)) { @@ -1988,11 +1987,10 @@ NsEnsembleImplementationCmdNR( int TclClearRootEnsemble( - ClientData dummy[], + TCL_UNUSED(ClientData *), Tcl_Interp *interp, int result) { - (void)dummy; TclResetRewriteEnsemble(interp, 1); return result; } @@ -2096,12 +2094,11 @@ TclResetRewriteEnsemble( static int FreeER( ClientData data[], - Tcl_Interp *dummy, + TCL_UNUSED(Tcl_Interp *), int result) { Tcl_Obj **tmp = (Tcl_Obj **) data[0]; Tcl_Obj **store = (Tcl_Obj **) data[1]; - (void)dummy; ckfree(store); ckfree(tmp); -- cgit v0.12