diff options
author | stanton <stanton> | 1998-09-30 23:04:03 (GMT) |
---|---|---|
committer | stanton <stanton> | 1998-09-30 23:04:03 (GMT) |
commit | 2a91498d67de29934dee878b07b8967d817966fa (patch) | |
tree | 2a5fddc11f947e3a332554308d5b494596699da4 | |
parent | 11d2da71fa217e8d2c56b5fc93d2af09bd5a5078 (diff) | |
download | tcl-2a91498d67de29934dee878b07b8967d817966fa.zip tcl-2a91498d67de29934dee878b07b8967d817966fa.tar.gz tcl-2a91498d67de29934dee878b07b8967d817966fa.tar.bz2 |
* tclCompCmds.c: lint
-rw-r--r-- | generic/tclCompCmds.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/generic/tclCompCmds.c b/generic/tclCompCmds.c index 6797c96..5a5e261 100644 --- a/generic/tclCompCmds.c +++ b/generic/tclCompCmds.c @@ -688,7 +688,7 @@ TclCompileForeachCmd(interp, parsePtr, envPtr) numVars = varcList[loopIndex]; for (j = 0; j < numVars; j++) { char *varName = varvList[loopIndex][j]; - if (!TclIsLocalScalar(varName, strlen(varName))) { + if (!TclIsLocalScalar(varName, (int) strlen(varName))) { code = TCL_OUT_LINE_COMPILE; goto done; } |