diff options
| -rw-r--r-- | generic/tclExecute.c | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/generic/tclExecute.c b/generic/tclExecute.c index 0af5be2..24b1dd2 100644 --- a/generic/tclExecute.c +++ b/generic/tclExecute.c @@ -2747,7 +2747,8 @@ TEBCresume( * stack depth, as seen by the compiler. */ - auxObjList->length += objc; + if (objc > 1) { + auxObjList->length += objc - 1; length = auxObjList->length /* Total expansion room we need */ + codePtr->maxStackDepth /* Beyond the original max */ - CURR_DEPTH; /* Relative to where we are */ @@ -2767,6 +2768,7 @@ TEBCresume( catchTop += moved; tosPtr += moved; } + } /* * Expand the list at stacktop onto the stack; free the list. Knowing |