diff options
author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2020-03-05 22:15:07 (GMT) |
---|---|---|
committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2020-03-05 22:15:07 (GMT) |
commit | d02acd85db6c30b28e7c2e98e46955076d44c406 (patch) | |
tree | 06dd9ca6a4bde441b4ab228b484436dd97ecb3b1 /macosx/tkMacOSXSend.c | |
parent | 3cc748dc86a2c3c813e2c7d9409a58e9a239d9c8 (diff) | |
download | tk-d02acd85db6c30b28e7c2e98e46955076d44c406.zip tk-d02acd85db6c30b28e7c2e98e46955076d44c406.tar.gz tk-d02acd85db6c30b28e7c2e98e46955076d44c406.tar.bz2 |
Eliminate many -Wextra warnings
Diffstat (limited to 'macosx/tkMacOSXSend.c')
-rw-r--r-- | macosx/tkMacOSXSend.c | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/macosx/tkMacOSXSend.c b/macosx/tkMacOSXSend.c index 8b65532..e96570e 100644 --- a/macosx/tkMacOSXSend.c +++ b/macosx/tkMacOSXSend.c @@ -320,7 +320,7 @@ Tk_SetAppName( int Tk_SendObjCmd( - ClientData clientData, /* Used only for deletion */ + ClientData dummy, /* Not used */ Tcl_Interp *interp, /* The interp we are sending from */ int objc, /* Number of arguments */ Tcl_Obj *const objv[]) /* The arguments */ @@ -332,6 +332,7 @@ Tk_SendObjCmd( RegisteredInterp *riPtr; Tcl_Obj *listObjPtr; int result = TCL_OK; + (void)dummy; for (i = 1; i < (objc - 1); ) { stringRep = Tcl_GetString(objv[i]); @@ -466,6 +467,7 @@ TkGetInterpNames( { Tcl_Obj *listObjPtr; RegisteredInterp *riPtr; + (void)tkwin; listObjPtr = Tcl_NewListObj(0, NULL); riPtr = interpListPtr; @@ -498,10 +500,9 @@ TkGetInterpNames( static int SendInit( - Tcl_Interp *interp) /* Interpreter to use for error reporting (no - * errors are ever returned, but the - * interpreter is needed anyway). */ + Tcl_Interp *dummy) /* Not used */ { + (void)dummy; return TCL_OK; } |