diff options
| author | dgp <dgp@users.sourceforge.net> | 2020-03-06 23:44:14 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2020-03-06 23:44:14 (GMT) |
| commit | fa6d9198c094233c80a546ae164d9773fd2d6bf4 (patch) | |
| tree | 0e13268936f234d7aecb55060c25758dba925595 /generic/tclLink.c | |
| parent | 81e31a16d82ff906b74f9b726637a3f146b77a4d (diff) | |
| download | tcl-fa6d9198c094233c80a546ae164d9773fd2d6bf4.zip tcl-fa6d9198c094233c80a546ae164d9773fd2d6bf4.tar.gz tcl-fa6d9198c094233c80a546ae164d9773fd2d6bf4.tar.bz2 | |
more
Diffstat (limited to 'generic/tclLink.c')
| -rw-r--r-- | generic/tclLink.c | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/generic/tclLink.c b/generic/tclLink.c index 9ed7f51..23a0ebe 100644 --- a/generic/tclLink.c +++ b/generic/tclLink.c @@ -628,12 +628,11 @@ IsSpecial( static int SetInvalidRealFromAny( - Tcl_Interp *dummy, + TCL_UNUSED(Tcl_Interp *), Tcl_Obj *objPtr) { const char *str; const char *endPtr; - (void)dummy; str = TclGetString(objPtr); if ((objPtr->length == 1) && (str[0] == '.')) { @@ -746,8 +745,11 @@ static char * LinkTraceProc( ClientData clientData, /* Contains information about the link. */ Tcl_Interp *interp, /* Interpreter containing Tcl variable. */ - const char *name1, /* First part of variable name. */ - const char *name2, /* Second part of variable name. */ + TCL_UNUSED(const char *) /*name1*/, + TCL_UNUSED(const char *) /*name2*/, + /* Links can only be made to global variables, + * so we can find them with need to resolve + * caller-supplied name in caller context. */ int flags) /* Miscellaneous additional information. */ { Link *linkPtr = (Link *)clientData; @@ -763,8 +765,6 @@ LinkTraceProc( int objc; Tcl_Obj **objv; int i; - (void)name1; - (void)name2; /* * If the variable is being unset, then just re-create it (with a trace) |