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 | 3db7dab605a517136ec1ab8f425bf66e81f7a68d (patch) | |
tree | d5af8c76d78d804f1f861a7b7a2f3dc7c587e6ef /generic/tclConfig.c | |
parent | e84e229fd592f843fc93e20306666034c740cee1 (diff) | |
download | tcl-3db7dab605a517136ec1ab8f425bf66e81f7a68d.zip tcl-3db7dab605a517136ec1ab8f425bf66e81f7a68d.tar.gz tcl-3db7dab605a517136ec1ab8f425bf66e81f7a68d.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); } /* |