diff options
| author | dgp <dgp@users.sourceforge.net> | 2020-03-06 21:33:24 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2020-03-06 21:33:24 (GMT) |
| commit | c4a1ea568ee92b0d890bb012f44b345c80f25fa8 (patch) | |
| tree | 5c9b8cae89263c6d99738a15d02d2113274f66e4 /generic/tclEvent.c | |
| parent | 1e155ca6690f927989e3afaa7559109019361d0d (diff) | |
| parent | 81e31a16d82ff906b74f9b726637a3f146b77a4d (diff) | |
| download | tcl-c4a1ea568ee92b0d890bb012f44b345c80f25fa8.zip tcl-c4a1ea568ee92b0d890bb012f44b345c80f25fa8.tar.gz tcl-c4a1ea568ee92b0d890bb012f44b345c80f25fa8.tar.bz2 | |
merge 8.7
Diffstat (limited to 'generic/tclEvent.c')
| -rw-r--r-- | generic/tclEvent.c | 17 |
1 files changed, 6 insertions, 11 deletions
diff --git a/generic/tclEvent.c b/generic/tclEvent.c index d7c9004..1892113 100644 --- a/generic/tclEvent.c +++ b/generic/tclEvent.c @@ -300,7 +300,7 @@ HandleBgErrors( int TclDefaultBgErrorHandlerObjCmd( - void *dummy, /* Not used. */ + TCL_UNUSED(ClientData), Tcl_Interp *interp, /* Current interpreter. */ int objc, /* Number of arguments. */ Tcl_Obj *const objv[]) /* Argument objects. */ @@ -309,7 +309,6 @@ TclDefaultBgErrorHandlerObjCmd( Tcl_Obj *tempObjv[2]; int result, code, level; Tcl_InterpState saved; - (void)dummy; if (objc != 3) { Tcl_WrongNumArgs(interp, 1, objv, "msg options"); @@ -587,11 +586,10 @@ TclGetBgErrorHandler( static void BgErrorDeleteProc( void *clientData, /* Pointer to ErrAssocData structure. */ - Tcl_Interp *dummy) /* Interpreter being deleted. */ + TCL_UNUSED(Tcl_Interp *)) { ErrAssocData *assocPtr = (ErrAssocData *)clientData; BgError *errPtr; - (void)dummy; while (assocPtr->firstBgPtr != NULL) { errPtr = assocPtr->firstBgPtr; @@ -1390,14 +1388,13 @@ TclInThreadExit(void) /* ARGSUSED */ int Tcl_VwaitObjCmd( - void *dummy, /* Not used. */ + TCL_UNUSED(ClientData), Tcl_Interp *interp, /* Current interpreter. */ int objc, /* Number of arguments. */ Tcl_Obj *const objv[]) /* Argument objects. */ { int done, foundEvent; const char *nameString; - (void)dummy; if (objc != 2) { Tcl_WrongNumArgs(interp, 1, objv, "name"); @@ -1455,14 +1452,13 @@ Tcl_VwaitObjCmd( /* ARGSUSED */ static char * VwaitVarProc( - void *clientData, /* Pointer to integer to set to 1. */ + void *clientData, /* Pointer to integer to set to 1. */ Tcl_Interp *interp, /* Interpreter containing variable. */ const char *name1, /* Name of variable. */ const char *name2, /* Second part of variable name. */ - int flags) /* Information about what happened. */ + TCL_UNUSED(int) /*flags*/) /* Information about what happened. */ { int *donePtr = (int *)clientData; - (void)flags; *donePtr = 1; Tcl_UntraceVar2(interp, name1, name2, TCL_TRACE_WRITES|TCL_TRACE_UNSETS, @@ -1490,7 +1486,7 @@ VwaitVarProc( /* ARGSUSED */ int Tcl_UpdateObjCmd( - void *dummy, /* Not used. */ + TCL_UNUSED(ClientData), Tcl_Interp *interp, /* Current interpreter. */ int objc, /* Number of arguments. */ Tcl_Obj *const objv[]) /* Argument objects. */ @@ -1499,7 +1495,6 @@ Tcl_UpdateObjCmd( int flags = 0; /* Initialized to avoid compiler warning. */ static const char *const updateOptions[] = {"idletasks", NULL}; enum updateOptions {OPT_IDLETASKS}; - (void)dummy; if (objc == 1) { flags = TCL_ALL_EVENTS|TCL_DONT_WAIT; |