diff options
| author | das <das> | 2007-09-03 01:28:31 (GMT) |
|---|---|---|
| committer | das <das> | 2007-09-03 01:28:31 (GMT) |
| commit | d79914f88c810c5826589958b191fe521bb2783a (patch) | |
| tree | 0ec9032ed64f218bef954f4c107db40f896671f3 | |
| parent | 3f8eaee13078461d06f1a41ff520c32e09178ead (diff) | |
| download | tcl-d79914f88c810c5826589958b191fe521bb2783a.zip tcl-d79914f88c810c5826589958b191fe521bb2783a.tar.gz tcl-d79914f88c810c5826589958b191fe521bb2783a.tar.bz2 | |
fix warnings about 64bit signed vs unsigned comparison
| -rw-r--r-- | generic/tclExecute.c | 6 |
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]) { |