diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-03-30 15:44:57 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-03-30 15:44:57 (GMT) |
| commit | 284dedf155f2929a52b5ccffbe13c1d55a643cb6 (patch) | |
| tree | 57f0ea33f34bb31041807f55369a72f54c36df94 /generic/tclCompile.c | |
| parent | af3676b8c8c9492af51242b319894eb695af86bb (diff) | |
| download | tcl-284dedf155f2929a52b5ccffbe13c1d55a643cb6.zip tcl-284dedf155f2929a52b5ccffbe13c1d55a643cb6.tar.gz tcl-284dedf155f2929a52b5ccffbe13c1d55a643cb6.tar.bz2 | |
More progress
Diffstat (limited to 'generic/tclCompile.c')
| -rw-r--r-- | generic/tclCompile.c | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/generic/tclCompile.c b/generic/tclCompile.c index f998aa1..a5af54e 100644 --- a/generic/tclCompile.c +++ b/generic/tclCompile.c @@ -3560,7 +3560,7 @@ TclCleanupStackForBreakContinue( while (toPop --> 0) { TclEmitOpcode(INST_EXPAND_DROP, envPtr); } - TclAdjustStackDepth(auxPtr->expandTargetDepth - envPtr->currStackDepth, + TclAdjustStackDepth((int)(auxPtr->expandTargetDepth - envPtr->currStackDepth), envPtr); envPtr->currStackDepth = auxPtr->expandTargetDepth; } @@ -4161,7 +4161,7 @@ TclEmitInvoke( &auxContinuePtr); if (rangePtr == NULL || rangePtr->type != LOOP_EXCEPTION_RANGE) { auxContinuePtr = NULL; - } else if (auxContinuePtr->stackDepth == envPtr->currStackDepth-wordCount + } else if (auxContinuePtr->stackDepth == (int)envPtr->currStackDepth-wordCount && auxContinuePtr->expandTarget == envPtr->expandCount-expandCount) { auxContinuePtr = NULL; } else { @@ -4172,7 +4172,7 @@ TclEmitInvoke( if (rangePtr == NULL || rangePtr->type != LOOP_EXCEPTION_RANGE) { auxBreakPtr = NULL; } else if (auxContinuePtr == NULL - && auxBreakPtr->stackDepth == envPtr->currStackDepth-wordCount + && auxBreakPtr->stackDepth == (int)envPtr->currStackDepth-wordCount && auxBreakPtr->expandTarget == envPtr->expandCount-expandCount) { auxBreakPtr = NULL; } else { |