From 5e444e6995acd1263f56df5e1279a4fc7c2a1652 Mon Sep 17 00:00:00 2001
From: vincentdarley <vincentdarley>
Date: Mon, 3 Nov 2003 12:48:52 +0000
Subject: remove warning

---
 generic/tclCmdIL.c | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/generic/tclCmdIL.c b/generic/tclCmdIL.c
index ec8dd4c..cb53798 100644
--- a/generic/tclCmdIL.c
+++ b/generic/tclCmdIL.c
@@ -15,7 +15,7 @@
  * See the file "license.terms" for information on usage and redistribution
  * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
  *
- * RCS: @(#) $Id: tclCmdIL.c,v 1.56 2003/11/01 01:20:33 dkf Exp $
+ * RCS: @(#) $Id: tclCmdIL.c,v 1.57 2003/11/03 12:48:52 vincentdarley Exp $
  */
 
 #include "tclInt.h"
@@ -2696,7 +2696,7 @@ Tcl_LrepeatObjCmd(dummy, interp, objc, objv)
      * memory, panic() will happen just a few lines lower...
      */
 
-    if (elementCount > INT_MAX/sizeof(Tcl_Obj *)/objc) {
+    if ((unsigned)elementCount > INT_MAX/sizeof(Tcl_Obj *)/objc) {
 	Tcl_AppendResult(interp, "overflow of maximum list length", NULL);
 	return TCL_ERROR;
     }
-- 
cgit v0.12