diff options
| author | dgp <dgp@users.sourceforge.net> | 2013-01-24 18:47:18 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2013-01-24 18:47:18 (GMT) |
| commit | 934f9e851f9394e5ada19839e6a9b66a9fccec59 (patch) | |
| tree | 6cddb484bb177aee799a61c6c32efe39006e69b9 /generic/tclExecute.c | |
| parent | 56fd1342df32418fbe37185f1ea2a3882732fc91 (diff) | |
| download | tcl-934f9e851f9394e5ada19839e6a9b66a9fccec59.zip tcl-934f9e851f9394e5ada19839e6a9b66a9fccec59.tar.gz tcl-934f9e851f9394e5ada19839e6a9b66a9fccec59.tar.bz2 | |
Silence some compiler warnings.
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); |