diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2020-03-09 13:08:33 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2020-03-09 13:08:33 (GMT) |
| commit | 254b4fa35fd51a8b78906d5d481f4e1c3901f8b2 (patch) | |
| tree | 97669e54172fba0aeb8139e4bcde7e1a8a402826 /generic/tclThreadTest.c | |
| parent | 24cfa12d40215a41ab6507a92a20d8600e320d94 (diff) | |
| parent | 42e6e9b167278c19dd2d9039fc434558bfc2c7f1 (diff) | |
| download | tcl-254b4fa35fd51a8b78906d5d481f4e1c3901f8b2.zip tcl-254b4fa35fd51a8b78906d5d481f4e1c3901f8b2.tar.gz tcl-254b4fa35fd51a8b78906d5d481f4e1c3901f8b2.tar.bz2 | |
Merge 8.7
Diffstat (limited to 'generic/tclThreadTest.c')
| -rw-r--r-- | generic/tclThreadTest.c | 10 |
1 files changed, 3 insertions, 7 deletions
diff --git a/generic/tclThreadTest.c b/generic/tclThreadTest.c index f4687ea..f233b1e 100644 --- a/generic/tclThreadTest.c +++ b/generic/tclThreadTest.c @@ -206,7 +206,7 @@ TclThread_Init( /* ARGSUSED */ static int ThreadObjCmd( - void *dummy, /* Not used. */ + TCL_UNUSED(ClientData), Tcl_Interp *interp, /* Current interpreter. */ int objc, /* Number of arguments. */ Tcl_Obj *const objv[]) /* Argument objects. */ @@ -223,7 +223,6 @@ ThreadObjCmd( THREAD_ID, THREAD_JOIN, THREAD_NAMES, THREAD_SEND, THREAD_WAIT, THREAD_ERRORPROC }; - (void)dummy; if (objc < 2) { Tcl_WrongNumArgs(interp, 1, objv, "option ?arg ...?"); @@ -1011,7 +1010,7 @@ ThreadCancel( static int ThreadEventProc( Tcl_Event *evPtr, /* Really ThreadEvent */ - int mask) + TCL_UNUSED(int) /*mask*/) { ThreadSpecificData *tsdPtr = TCL_TSD_INIT(&dataKey); ThreadEvent *threadEventPtr = (ThreadEvent *) evPtr; @@ -1019,7 +1018,6 @@ ThreadEventProc( Tcl_Interp *interp = tsdPtr->interp; int code; const char *result, *errorCode, *errorInfo; - (void)mask; if (interp == NULL) { code = TCL_ERROR; @@ -1111,10 +1109,8 @@ ThreadFreeProc( static int ThreadDeleteEvent( Tcl_Event *eventPtr, /* Really ThreadEvent */ - void *dummy) /* dummy */ + TCL_UNUSED(ClientData)) { - (void)dummy; - if (eventPtr->proc == ThreadEventProc) { Tcl_Free(((ThreadEvent *) eventPtr)->script); return 1; |