summaryrefslogtreecommitdiffstats
path: root/generic/tclExecute.c
diff options
context:
space:
mode:
authordgp <dgp@users.sourceforge.net>2010-07-19 14:10:43 (GMT)
committerdgp <dgp@users.sourceforge.net>2010-07-19 14:10:43 (GMT)
commit971d0d7eacc5ec89acf9582a06872a48002a2fa1 (patch)
tree55d9ee140f83fc1ff096a6c1fb217f0c31d5f646 /generic/tclExecute.c
parent78492038a471a4ce198ea52412267b67ec55b42c (diff)
downloadtcl-971d0d7eacc5ec89acf9582a06872a48002a2fa1.zip
tcl-971d0d7eacc5ec89acf9582a06872a48002a2fa1.tar.gz
tcl-971d0d7eacc5ec89acf9582a06872a48002a2fa1.tar.bz2
silence compiler warnings
Diffstat (limited to 'generic/tclExecute.c')
-rw-r--r--generic/tclExecute.c7
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);