summaryrefslogtreecommitdiffstats
path: root/generic/tclExecute.c
diff options
context:
space:
mode:
authorKevin B Kenny <kennykb@acm.org>2006-03-24 19:05:39 (GMT)
committerKevin B Kenny <kennykb@acm.org>2006-03-24 19:05:39 (GMT)
commit13e59924a4d6be2bb75a9d895b37265da19d67c5 (patch)
tree5bf3676f041978a63dd61a1d08369678c4c84aa6 /generic/tclExecute.c
parent27a8d21a8768fc56364cee33b3f3d1a7954248f6 (diff)
downloadtcl-13e59924a4d6be2bb75a9d895b37265da19d67c5.zip
tcl-13e59924a4d6be2bb75a9d895b37265da19d67c5.tar.gz
tcl-13e59924a4d6be2bb75a9d895b37265da19d67c5.tar.bz2
add missing casts to int that were making VC6 complain
Diffstat (limited to 'generic/tclExecute.c')
-rw-r--r--generic/tclExecute.c6
1 files changed, 3 insertions, 3 deletions
diff --git a/generic/tclExecute.c b/generic/tclExecute.c
index 68078be..9b1f26e 100644
--- a/generic/tclExecute.c
+++ b/generic/tclExecute.c
@@ -12,7 +12,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.230 2006/03/24 18:20:37 dgp Exp $
+ * RCS: @(#) $Id: tclExecute.c,v 1.231 2006/03/24 19:05:40 kennykb Exp $
*/
#include "tclInt.h"
@@ -4576,14 +4576,14 @@ TclExecuteByteCode(
switch (type2) {
case TCL_NUMBER_LONG: {
negativeExponent = (l2 < 0);
- oddExponent = (l2 & 1);
+ oddExponent = (int) (l2 & 1);
break;
}
#ifndef NO_WIDE_TYPE
case TCL_NUMBER_WIDE: {
Tcl_WideInt w2 = *((CONST Tcl_WideInt *)ptr2);
negativeExponent = (w2 < 0);
- oddExponent = (w2 & (Tcl_WideInt)1);
+ oddExponent = (int) (w2 & (Tcl_WideInt)1);
break;
}
#endif