summaryrefslogtreecommitdiffstats
path: root/generic/tclBasic.c
diff options
context:
space:
mode:
authordgp <dgp@users.sourceforge.net>2007-06-28 21:28:46 (GMT)
committerdgp <dgp@users.sourceforge.net>2007-06-28 21:28:46 (GMT)
commit5ade3bb4e4b8d43b6a42a7b830b15cf724179634 (patch)
treec7c75f6b78555a1c40063e1fde8e0d227d87b007 /generic/tclBasic.c
parentc74f9acb6f1c840dc71a4ac174760c1c6b788acd (diff)
downloadtcl-5ade3bb4e4b8d43b6a42a7b830b15cf724179634.zip
tcl-5ade3bb4e4b8d43b6a42a7b830b15cf724179634.tar.gz
tcl-5ade3bb4e4b8d43b6a42a7b830b15cf724179634.tar.bz2
unsigned int type matching
Diffstat (limited to 'generic/tclBasic.c')
-rw-r--r--generic/tclBasic.c8
1 files changed, 4 insertions, 4 deletions
diff --git a/generic/tclBasic.c b/generic/tclBasic.c
index f9cfed9..fd1e1cb 100644
--- a/generic/tclBasic.c
+++ b/generic/tclBasic.c
@@ -13,7 +13,7 @@
* See the file "license.terms" for information on usage and redistribution of
* this file, and for a DISCLAIMER OF ALL WARRANTIES.
*
- * RCS: @(#) $Id: tclBasic.c,v 1.260 2007/06/28 21:24:56 dgp Exp $
+ * RCS: @(#) $Id: tclBasic.c,v 1.261 2007/06/28 21:28:46 dgp Exp $
*/
#include "tclInt.h"
@@ -3844,7 +3844,7 @@ TclEvalEx(
{
Interp *iPtr = (Interp *) interp;
const char *p, *next;
- const int minObjs = 20;
+ const unsigned int minObjs = 20;
Tcl_Obj **objv, **objvSpace;
int *expand, *lines, *lineSpace;
Tcl_Token *tokenPtr;
@@ -3989,7 +3989,7 @@ TclEvalEx(
int objectsNeeded = 0;
unsigned int numWords = parsePtr->numWords;
- if (numWords > (unsigned int)minObjs) {
+ if (numWords > minObjs) {
expand = (int *) ckalloc(numWords * sizeof(int));
objvSpace = (Tcl_Obj **) ckalloc(numWords * sizeof(Tcl_Obj *));
lineSpace = (int *) ckalloc(numWords * sizeof(int));
@@ -4063,7 +4063,7 @@ TclEvalEx(
int wordIdx = numWords;
int objIdx = objectsNeeded - 1;
- if ((numWords > (unsigned int)minObjs)
+ if ((numWords > minObjs)
|| (objectsNeeded > minObjs)) {
objv = objvSpace = (Tcl_Obj **)
ckalloc((unsigned)objectsNeeded*sizeof(Tcl_Obj*));