diff options
author | dgp <dgp@noemail.net> | 2013-01-24 18:47:18 (GMT) |
---|---|---|
committer | dgp <dgp@noemail.net> | 2013-01-24 18:47:18 (GMT) |
commit | ac5a0628608a5e9c0a232dfd989ee929ac643cc6 (patch) | |
tree | 6cddb484bb177aee799a61c6c32efe39006e69b9 /generic/tclExecute.c | |
parent | 5372488c56ff04f566580257aa963e7cabdede41 (diff) | |
download | tcl-ac5a0628608a5e9c0a232dfd989ee929ac643cc6.zip tcl-ac5a0628608a5e9c0a232dfd989ee929ac643cc6.tar.gz tcl-ac5a0628608a5e9c0a232dfd989ee929ac643cc6.tar.bz2 |
Silence some compiler warnings.
FossilOrigin-Name: f1698392286fd6001edab05c50f3263682f49c9a
Diffstat (limited to 'generic/tclExecute.c')
-rw-r--r-- | generic/tclExecute.c | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/generic/tclExecute.c b/generic/tclExecute.c index 2a9f8bb..c09b73e 100644 --- a/generic/tclExecute.c +++ b/generic/tclExecute.c @@ -5118,6 +5118,9 @@ VerifyExprObjType(interp, objPtr) long i; Tcl_WideInt w; GET_WIDE_OR_INT(result, objPtr, i, w); + /* Quiet cranky old compilers that complain about + * setting i, but not using it. */ + (void)i; } else { double d; result = Tcl_GetDoubleFromObj((Tcl_Interp *) NULL, objPtr, &d); |