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/tclAssembly.c | |
parent | 52015b6d7bd6f89ac7083fff270c15e7df5b19ec (diff) | |
download | tcl-432fbdc37562b215a1955ebc8c5af4aadd24315a.zip tcl-432fbdc37562b215a1955ebc8c5af4aadd24315a.tar.gz tcl-432fbdc37562b215a1955ebc8c5af4aadd24315a.tar.bz2 |
More progress
Diffstat (limited to 'generic/tclAssembly.c')
-rw-r--r-- | generic/tclAssembly.c | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/generic/tclAssembly.c b/generic/tclAssembly.c index 8560843..6027741 100644 --- a/generic/tclAssembly.c +++ b/generic/tclAssembly.c @@ -1075,7 +1075,7 @@ TclAssembleCode( */ if ((int)parsePtr->numWords > 0) { - size_t instLen = (int)parsePtr->commandSize; + size_t instLen = parsePtr->commandSize; /* Length in bytes of the current command */ if (parsePtr->term == parsePtr->commandStart + instLen - 1) { @@ -4011,7 +4011,7 @@ UnstackExpiredCatches( --catchDepth; if (catches[catchDepth] != NULL) { range = envPtr->exceptArrayPtr + catchIndices[catchDepth]; - range->numCodeBytes = bbPtr->startOffset - (int)range->codeOffset; + range->numCodeBytes = bbPtr->startOffset - range->codeOffset; catches[catchDepth] = NULL; catchIndices[catchDepth] = -1; } @@ -4030,7 +4030,7 @@ UnstackExpiredCatches( if (catches[catchDepth] != NULL) { if (catches[catchDepth] != block || catchState >= BBCS_CAUGHT) { range = envPtr->exceptArrayPtr + catchIndices[catchDepth]; - range->numCodeBytes = bbPtr->startOffset - (int)range->codeOffset; + range->numCodeBytes = bbPtr->startOffset - range->codeOffset; catches[catchDepth] = NULL; catchIndices[catchDepth] = -1; } |