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 | 94605ca2706bce3bfe127eb4168ca135fd02b609 (patch) | |
| tree | 6cddb484bb177aee799a61c6c32efe39006e69b9 /generic/tclExecute.c | |
| parent | c58c25ef079a96e684e2be9bdf78040c84c3cf9b (diff) | |
| download | tcl-94605ca2706bce3bfe127eb4168ca135fd02b609.zip tcl-94605ca2706bce3bfe127eb4168ca135fd02b609.tar.gz tcl-94605ca2706bce3bfe127eb4168ca135fd02b609.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); |