diff options
author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-03-31 16:33:47 (GMT) |
---|---|---|
committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-03-31 16:33:47 (GMT) |
commit | c21ba3a0d2f147398eaea4649b607d9eb72ba0ad (patch) | |
tree | 7a665667dcd8c092cacc72e3fad57fe2b3ef2be7 /generic/tclAssembly.c | |
parent | 471418d41a9b6c90ad576b6c85ae7764d4b04326 (diff) | |
download | tcl-c21ba3a0d2f147398eaea4649b607d9eb72ba0ad.zip tcl-c21ba3a0d2f147398eaea4649b607d9eb72ba0ad.tar.gz tcl-c21ba3a0d2f147398eaea4649b607d9eb72ba0ad.tar.bz2 |
more progress
Diffstat (limited to 'generic/tclAssembly.c')
-rw-r--r-- | generic/tclAssembly.c | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/generic/tclAssembly.c b/generic/tclAssembly.c index 3abd4fa..4faf679 100644 --- a/generic/tclAssembly.c +++ b/generic/tclAssembly.c @@ -1940,7 +1940,7 @@ MoveExceptionRangesToBasicBlock( envPtr->exceptArrayPtr + savedExceptArrayNext, exceptionCount * sizeof(ExceptionRange)); for (i = 0; i < exceptionCount; ++i) { - curr_bb->foreignExceptions[i].nestingLevel -= envPtr->exceptDepth; + curr_bb->foreignExceptions[i].nestingLevel1 -= envPtr->exceptDepth; } envPtr->exceptArrayNext = savedExceptArrayNext; } @@ -4125,9 +4125,9 @@ StackFreshCatches( catchIndices[catchDepth] = TclCreateExceptRange(CATCH_EXCEPTION_RANGE, envPtr); range = envPtr->exceptArrayPtr + catchIndices[catchDepth]; - range->nestingLevel = envPtr->exceptDepth + catchDepth; + range->nestingLevel1 = envPtr->exceptDepth + catchDepth; envPtr->maxExceptDepth= - TclMax(range->nestingLevel + 1, (int)envPtr->maxExceptDepth); + TclMax(range->nestingLevel1 + 1, envPtr->maxExceptDepth); range->codeOffset = bbPtr->startOffset; entryPtr = Tcl_FindHashEntry(&assemEnvPtr->labelHash, @@ -4187,11 +4187,11 @@ RestoreEmbeddedExceptionRanges( for (i = 0; i < bbPtr->foreignExceptionCount; ++i) { range = bbPtr->foreignExceptions + i; rangeIndex = TclCreateExceptRange(range->type, envPtr); - range->nestingLevel += envPtr->exceptDepth + bbPtr->catchDepth; + range->nestingLevel1 += envPtr->exceptDepth + bbPtr->catchDepth; memcpy(envPtr->exceptArrayPtr + rangeIndex, range, sizeof(ExceptionRange)); - if (range->nestingLevel >= (int)envPtr->maxExceptDepth) { - envPtr->maxExceptDepth = range->nestingLevel + 1; + if ((int)range->nestingLevel1 >= (int)envPtr->maxExceptDepth) { + envPtr->maxExceptDepth = range->nestingLevel1 + 1; } } |