diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2020-03-07 16:03:16 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2020-03-07 16:03:16 (GMT) |
| commit | 2c34ced219c028ad38fe079b9000f31049a0a42c (patch) | |
| tree | 4b5502463d16f3b5094ef9c11eea1deb97ec35dd /generic/tclLink.c | |
| parent | c4a1ea568ee92b0d890bb012f44b345c80f25fa8 (diff) | |
| parent | 467d03dbc94f1e8b6ec74da6ac0f54ce4975bf10 (diff) | |
| download | tcl-2c34ced219c028ad38fe079b9000f31049a0a42c.zip tcl-2c34ced219c028ad38fe079b9000f31049a0a42c.tar.gz tcl-2c34ced219c028ad38fe079b9000f31049a0a42c.tar.bz2 | |
Merge 8.7
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 6be0de1..29c9473 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) { size_t length; const char *str, *endPtr; - (void)dummy; str = TclGetStringFromObj(objPtr, &length); if ((length == 1) && (str[0] == '.')) { @@ -747,8 +746,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; @@ -764,8 +766,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) |