diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-03-29 10:37:35 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-03-29 10:37:35 (GMT) |
| commit | 432fbdc37562b215a1955ebc8c5af4aadd24315a (patch) | |
| tree | 9d2b39b23907040168cf9a5971250dfb2288a196 /generic/tclBasic.c | |
| parent | 52015b6d7bd6f89ac7083fff270c15e7df5b19ec (diff) | |
| download | tcl-432fbdc37562b215a1955ebc8c5af4aadd24315a.zip tcl-432fbdc37562b215a1955ebc8c5af4aadd24315a.tar.gz tcl-432fbdc37562b215a1955ebc8c5af4aadd24315a.tar.bz2 | |
More progress
Diffstat (limited to 'generic/tclBasic.c')
| -rw-r--r-- | generic/tclBasic.c | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/generic/tclBasic.c b/generic/tclBasic.c index ae89552..7d09caf 100644 --- a/generic/tclBasic.c +++ b/generic/tclBasic.c @@ -5302,7 +5302,7 @@ TclEvalEx( eeFramePtr->len = parsePtr->commandSize; if (parsePtr->term == - parsePtr->commandStart + (int)parsePtr->commandSize - 1) { + parsePtr->commandStart + parsePtr->commandSize - 1) { eeFramePtr->len--; } @@ -5353,7 +5353,7 @@ TclEvalEx( * executed command. */ - next = parsePtr->commandStart + (int)parsePtr->commandSize; + next = parsePtr->commandStart + parsePtr->commandSize; bytesLeft -= next - p; p = next; TclAdvanceLines(&line, parsePtr->commandStart, p); @@ -5379,7 +5379,7 @@ TclEvalEx( } } if ((code == TCL_ERROR) && !(iPtr->flags & ERR_ALREADY_LOGGED)) { - commandLength = (int)parsePtr->commandSize; + commandLength = parsePtr->commandSize; if (parsePtr->term == parsePtr->commandStart + commandLength - 1) { /* * The terminator character (such as ; or ]) of the command where |