From d79914f88c810c5826589958b191fe521bb2783a Mon Sep 17 00:00:00 2001
From: das <das>
Date: Mon, 3 Sep 2007 01:28:31 +0000
Subject: fix warnings about 64bit signed vs unsigned comparison

---
 generic/tclExecute.c | 6 +++---
 1 file 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]) {
-- 
cgit v0.12