diff options
author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2019-09-03 20:32:33 (GMT) |
---|---|---|
committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2019-09-03 20:32:33 (GMT) |
commit | 8c60b1157a27a535111861c5a83b64d502ec1948 (patch) | |
tree | 8388b53b8610267c8b8a1755286e96878c170cd3 /generic/tclEvent.c | |
parent | 97cf6a1affd8abe431bad7a2c560b434aa953354 (diff) | |
download | tcl-8c60b1157a27a535111861c5a83b64d502ec1948.zip tcl-8c60b1157a27a535111861c5a83b64d502ec1948.tar.gz tcl-8c60b1157a27a535111861c5a83b64d502ec1948.tar.bz2 |
Mark more unused parameters
Diffstat (limited to 'generic/tclEvent.c')
-rw-r--r-- | generic/tclEvent.c | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/generic/tclEvent.c b/generic/tclEvent.c index 7c499b5..91bc995 100644 --- a/generic/tclEvent.c +++ b/generic/tclEvent.c @@ -1467,17 +1467,18 @@ Tcl_VwaitObjCmd( static char * VwaitVarProc( void *clientData, /* Pointer to integer to set to 1. */ - Tcl_Interp *interp, /* Interpreter containing variable. */ + Tcl_Interp *dummy, /* Interpreter containing variable. */ const char *name1, /* Name of variable. */ const char *name2, /* Second part of variable name. */ int flags) /* Information about what happened. */ { int *donePtr = (int *)clientData; + (void)dummy; (void)flags; + (void)name1; + (void)name2; *donePtr = 1; - Tcl_UntraceVar(interp, name1, TCL_TRACE_WRITES|TCL_TRACE_UNSETS, - VwaitVarProc, clientData); return NULL; } |