summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authordas <das>2007-09-03 01:28:31 (GMT)
committerdas <das>2007-09-03 01:28:31 (GMT)
commitd79914f88c810c5826589958b191fe521bb2783a (patch)
tree0ec9032ed64f218bef954f4c107db40f896671f3
parent3f8eaee13078461d06f1a41ff520c32e09178ead (diff)
downloadtcl-d79914f88c810c5826589958b191fe521bb2783a.zip
tcl-d79914f88c810c5826589958b191fe521bb2783a.tar.gz
tcl-d79914f88c810c5826589958b191fe521bb2783a.tar.bz2
fix warnings about 64bit signed vs unsigned comparison
-rw-r--r--generic/tclExecute.c6
1 files changed, 3 insertions, 3 deletions
diff --git a/generic/tclExecute.c b/generic/tclExecute.c
index db95212..b2abf5b 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.327 2007/08/30 19:24:33 dgp Exp $
+ * RCS: @(#) $Id: tclExecute.c,v 1.328 2007/09/03 01:28:31 das Exp $
*/
#include "tclInt.h"
@@ -5577,7 +5577,7 @@ TclExecuteByteCode(
* word by doing table lookup
*/
if (w1 >= 3
- && w1 < (sizeof(Exp64Index)
+ && (Tcl_WideUInt) w1 < (sizeof(Exp64Index)
/ sizeof(unsigned short)) - 1) {
unsigned short base = Exp64Index[w1-3] + l2 - 17;
if (base < Exp64Index[w1-2]) {
@@ -5597,7 +5597,7 @@ TclExecuteByteCode(
}
}
if (-w1 >= 3
- && -w1 < (sizeof(Exp64Index)
+ && (Tcl_WideUInt) (-w1) < (sizeof(Exp64Index)
/ sizeof(unsigned short)) - 1) {
unsigned short base = Exp64Index[-w1-3] + l2 - 17;
if (base < Exp64Index[-w1-2]) {