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/tclOptimize.c | |
| parent | 25473372703a8ba0a8bba93c36afad63b8a9e2f6 (diff) | |
| download | tcl-10367534a7313529151f25caee18fcab436b621f.zip tcl-10367534a7313529151f25caee18fcab436b621f.tar.gz tcl-10367534a7313529151f25caee18fcab436b621f.tar.bz2 | |
More progress
Diffstat (limited to 'generic/tclOptimize.c')
| -rw-r--r-- | generic/tclOptimize.c | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/generic/tclOptimize.c b/generic/tclOptimize.c index 094638e..2fcc8e1 100644 --- a/generic/tclOptimize.c +++ b/generic/tclOptimize.c @@ -129,13 +129,13 @@ LocateTargetAddresses( ExceptionRange *rangePtr = &envPtr->exceptArrayPtr[i]; if (rangePtr->type == CATCH_EXCEPTION_RANGE) { - targetInstPtr = envPtr->codeStart + rangePtr->catchOffset; + targetInstPtr = envPtr->codeStart + (int)rangePtr->catchOffset; DefineTargetAddress(tablePtr, targetInstPtr); } else { - targetInstPtr = envPtr->codeStart + rangePtr->breakOffset; + targetInstPtr = envPtr->codeStart + (int)rangePtr->breakOffset; DefineTargetAddress(tablePtr, targetInstPtr); - if (rangePtr->continueOffset >= 0) { - targetInstPtr = envPtr->codeStart + rangePtr->continueOffset; + if (rangePtr->continueOffset != TCL_INDEX_NONE) { + targetInstPtr = envPtr->codeStart + (int)rangePtr->continueOffset; DefineTargetAddress(tablePtr, targetInstPtr); } } |