diff options
| author | dgp <dgp@users.sourceforge.net> | 2020-03-06 18:31:49 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2020-03-06 18:31:49 (GMT) |
| commit | 7756b56f4e5c82938c329fead030c9cd8a746253 (patch) | |
| tree | d5af8c76d78d804f1f861a7b7a2f3dc7c587e6ef /generic/tclConfig.c | |
| parent | 03f137e4ac48d2d4a505bc67cbf133f261fe849d (diff) | |
| download | tcl-7756b56f4e5c82938c329fead030c9cd8a746253.zip tcl-7756b56f4e5c82938c329fead030c9cd8a746253.tar.gz tcl-7756b56f4e5c82938c329fead030c9cd8a746253.tar.bz2 | |
more of the same
Diffstat (limited to 'generic/tclConfig.c')
| -rw-r--r-- | generic/tclConfig.c | 16 |
1 files changed, 5 insertions, 11 deletions
diff --git a/generic/tclConfig.c b/generic/tclConfig.c index e7e521a..3bdcd38 100644 --- a/generic/tclConfig.c +++ b/generic/tclConfig.c @@ -41,13 +41,10 @@ typedef struct QCCD { * Static functions in this file: */ -static int QueryConfigObjCmd(ClientData clientData, - Tcl_Interp *interp, int objc, - struct Tcl_Obj *const *objv); -static void QueryConfigDelete(ClientData clientData); +static Tcl_ObjCmdProc QueryConfigObjCmd; +static Tcl_CmdDeleteProc QueryConfigDelete; +static Tcl_InterpDeleteProc ConfigDictDeleteProc; static Tcl_Obj * GetConfigDict(Tcl_Interp *interp); -static void ConfigDictDeleteProc(ClientData clientData, - Tcl_Interp *interp); /* *---------------------------------------------------------------------- @@ -392,12 +389,9 @@ GetConfigDict( static void ConfigDictDeleteProc( ClientData clientData, /* Pointer to Tcl_Obj. */ - Tcl_Interp *dummy) /* Interpreter being deleted. */ + TCL_UNUSED(Tcl_Interp *)) { - Tcl_Obj *pDB = (Tcl_Obj *)clientData; - (void)dummy; - - Tcl_DecrRefCount(pDB); + Tcl_DecrRefCount((Tcl_Obj *)clientData); } /* |