diff options
| author | dgp <dgp@users.sourceforge.net> | 2010-07-19 14:10:43 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2010-07-19 14:10:43 (GMT) |
| commit | 971d0d7eacc5ec89acf9582a06872a48002a2fa1 (patch) | |
| tree | 55d9ee140f83fc1ff096a6c1fb217f0c31d5f646 /generic/tclExecute.c | |
| parent | 78492038a471a4ce198ea52412267b67ec55b42c (diff) | |
| download | tcl-971d0d7eacc5ec89acf9582a06872a48002a2fa1.zip tcl-971d0d7eacc5ec89acf9582a06872a48002a2fa1.tar.gz tcl-971d0d7eacc5ec89acf9582a06872a48002a2fa1.tar.bz2 | |
silence compiler warnings
Diffstat (limited to 'generic/tclExecute.c')
| -rw-r--r-- | generic/tclExecute.c | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/generic/tclExecute.c b/generic/tclExecute.c index 73185b8..249d748 100644 --- a/generic/tclExecute.c +++ b/generic/tclExecute.c @@ -14,7 +14,7 @@ * See the file "license.terms" for information on usage and redistribution of * this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclExecute.c,v 1.488 2010/07/15 21:00:26 dkf Exp $ + * RCS: @(#) $Id: tclExecute.c,v 1.489 2010/07/19 14:10:43 dgp Exp $ */ #include "tclInt.h" @@ -6712,7 +6712,7 @@ ExecuteExtendedBinaryMathOp( ClientData ptr1, ptr2; double d1, d2, dResult; long l1, l2, lResult; - Tcl_WideInt w1, w2, wResult, wQuotient, wRemainder; + Tcl_WideInt w1, w2, wResult; mp_int big1, big2, bigResult, bigRemainder; Tcl_Obj *objResultPtr; int invalid, numPos, zero; @@ -6743,6 +6743,7 @@ ExecuteExtendedBinaryMathOp( if (type1 == TCL_NUMBER_WIDE) { w1 = *((const Tcl_WideInt *)ptr1); if (type2 != TCL_NUMBER_BIG) { + Tcl_WideInt wQuotient, wRemainder; Tcl_GetWideIntFromObj(NULL, value2Ptr, &w2); wQuotient = w1 / w2; @@ -7787,7 +7788,9 @@ TclCompareTwoNumbers( mp_int big1, big2; double d1, d2, tmp; long l1, l2; +#ifndef NO_WIDE_TYPE Tcl_WideInt w1, w2; +#endif (void) GetNumberFromObj(NULL, valuePtr, &ptr1, &type1); (void) GetNumberFromObj(NULL, value2Ptr, &ptr2, &type2); |