diff options
| author | das <das> | 2007-06-29 03:16:01 (GMT) |
|---|---|---|
| committer | das <das> | 2007-06-29 03:16:01 (GMT) |
| commit | 232d002003fa03bec055f9a7f0b39c8b32095828 (patch) | |
| tree | 4a134f89ce693bb9c668032a3066b0c6d320a6c8 /generic/tclBasic.c | |
| parent | 48ac1f55511ac5c5f2130c7212627a67e11cb348 (diff) | |
| download | tcl-232d002003fa03bec055f9a7f0b39c8b32095828.zip tcl-232d002003fa03bec055f9a7f0b39c8b32095828.tar.gz tcl-232d002003fa03bec055f9a7f0b39c8b32095828.tar.bz2 | |
* generic/tclBasic.c (TclEvalEx): fix warnings.
Diffstat (limited to 'generic/tclBasic.c')
| -rw-r--r-- | generic/tclBasic.c | 11 |
1 files changed, 5 insertions, 6 deletions
diff --git a/generic/tclBasic.c b/generic/tclBasic.c index fd1e1cb..760a92c 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.261 2007/06/28 21:28:46 dgp Exp $ + * RCS: @(#) $Id: tclBasic.c,v 1.262 2007/06/29 03:16:01 das Exp $ */ #include "tclInt.h" @@ -3986,7 +3986,7 @@ TclEvalEx( * Generate an array of objects for the words of the command. */ - int objectsNeeded = 0; + unsigned int objectsNeeded = 0; unsigned int numWords = parsePtr->numWords; if (numWords > minObjs) { @@ -4063,12 +4063,11 @@ TclEvalEx( int wordIdx = numWords; int objIdx = objectsNeeded - 1; - if ((numWords > minObjs) - || (objectsNeeded > minObjs)) { + if ((numWords > minObjs) || (objectsNeeded > minObjs)) { objv = objvSpace = (Tcl_Obj **) - ckalloc((unsigned)objectsNeeded*sizeof(Tcl_Obj*)); + ckalloc(objectsNeeded * sizeof(Tcl_Obj*)); lines = lineSpace = (int*) - ckalloc((unsigned) objectsNeeded * sizeof(int)); + ckalloc(objectsNeeded * sizeof(int)); } objectsUsed = 0; |