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/tclAssembly.c | |
| parent | af3676b8c8c9492af51242b319894eb695af86bb (diff) | |
| download | tcl-284dedf155f2929a52b5ccffbe13c1d55a643cb6.zip tcl-284dedf155f2929a52b5ccffbe13c1d55a643cb6.tar.gz tcl-284dedf155f2929a52b5ccffbe13c1d55a643cb6.tar.bz2 | |
More progress
Diffstat (limited to 'generic/tclAssembly.c')
| -rw-r--r-- | generic/tclAssembly.c | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/generic/tclAssembly.c b/generic/tclAssembly.c index 4458e59..3abd4fa 100644 --- a/generic/tclAssembly.c +++ b/generic/tclAssembly.c @@ -965,7 +965,7 @@ TclCompileAssembleCmd( size_t numCommands = envPtr->numCommands; int offset = envPtr->codeNext - envPtr->codeStart; - int depth = envPtr->currStackDepth; + size_t depth = envPtr->currStackDepth; /* * Make sure that the command has a single arg that is a simple word. */ @@ -1811,8 +1811,8 @@ CompileEmbeddedScript( * code. */ - int savedStackDepth = envPtr->currStackDepth; - int savedMaxStackDepth = envPtr->maxStackDepth; + size_t savedStackDepth = envPtr->currStackDepth; + size_t savedMaxStackDepth = envPtr->maxStackDepth; int savedExceptArrayNext = envPtr->exceptArrayNext; envPtr->currStackDepth = 0; @@ -3334,7 +3334,7 @@ CheckStack( */ maxDepth = assemEnvPtr->maxDepth + envPtr->currStackDepth; - if (maxDepth > envPtr->maxStackDepth) { + if (maxDepth > (int)envPtr->maxStackDepth) { envPtr->maxStackDepth = maxDepth; } @@ -4126,8 +4126,8 @@ StackFreshCatches( TclCreateExceptRange(CATCH_EXCEPTION_RANGE, envPtr); range = envPtr->exceptArrayPtr + catchIndices[catchDepth]; range->nestingLevel = envPtr->exceptDepth + catchDepth; - envPtr->maxExceptDepth = - TclMax(range->nestingLevel + 1, envPtr->maxExceptDepth); + envPtr->maxExceptDepth= + TclMax(range->nestingLevel + 1, (int)envPtr->maxExceptDepth); range->codeOffset = bbPtr->startOffset; entryPtr = Tcl_FindHashEntry(&assemEnvPtr->labelHash, @@ -4190,7 +4190,7 @@ RestoreEmbeddedExceptionRanges( range->nestingLevel += envPtr->exceptDepth + bbPtr->catchDepth; memcpy(envPtr->exceptArrayPtr + rangeIndex, range, sizeof(ExceptionRange)); - if (range->nestingLevel >= envPtr->maxExceptDepth) { + if (range->nestingLevel >= (int)envPtr->maxExceptDepth) { envPtr->maxExceptDepth = range->nestingLevel + 1; } } |