diff options
-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; } |