diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-03-17 15:05:50 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-03-17 15:05:50 (GMT) |
| commit | 10367534a7313529151f25caee18fcab436b621f (patch) | |
| tree | ad088c9802009d10e1f0f5d9b12dfabbf3d059a7 /generic/tclAssembly.c | |
| parent | 25473372703a8ba0a8bba93c36afad63b8a9e2f6 (diff) | |
| download | tcl-10367534a7313529151f25caee18fcab436b621f.zip tcl-10367534a7313529151f25caee18fcab436b621f.tar.gz tcl-10367534a7313529151f25caee18fcab436b621f.tar.bz2 | |
More progress
Diffstat (limited to 'generic/tclAssembly.c')
| -rw-r--r-- | generic/tclAssembly.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/generic/tclAssembly.c b/generic/tclAssembly.c index b8a4606..c53fd0b 100644 --- a/generic/tclAssembly.c +++ b/generic/tclAssembly.c @@ -4011,7 +4011,7 @@ UnstackExpiredCatches( --catchDepth; if (catches[catchDepth] != NULL) { range = envPtr->exceptArrayPtr + catchIndices[catchDepth]; - range->numCodeBytes = bbPtr->startOffset - range->codeOffset; + range->numCodeBytes = bbPtr->startOffset - (int)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 - range->codeOffset; + range->numCodeBytes = bbPtr->startOffset - (int)range->codeOffset; catches[catchDepth] = NULL; catchIndices[catchDepth] = -1; } |