summaryrefslogtreecommitdiffstats
path: root/generic/tclCmdIL.c
diff options
context:
space:
mode:
authorvincentdarley <vincentdarley>2003-11-03 12:48:52 (GMT)
committervincentdarley <vincentdarley>2003-11-03 12:48:52 (GMT)
commit5e444e6995acd1263f56df5e1279a4fc7c2a1652 (patch)
tree229a62ea599ea2e40013fb866ea3704d2d3cbe9b /generic/tclCmdIL.c
parentf4af0965449025714b1cb4d66f771290f1ce9efa (diff)
downloadtcl-5e444e6995acd1263f56df5e1279a4fc7c2a1652.zip
tcl-5e444e6995acd1263f56df5e1279a4fc7c2a1652.tar.gz
tcl-5e444e6995acd1263f56df5e1279a4fc7c2a1652.tar.bz2
remove warning
Diffstat (limited to 'generic/tclCmdIL.c')
-rw-r--r--generic/tclCmdIL.c4
1 files 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;
}