diff options
| author | dkf <donal.k.fellows@manchester.ac.uk> | 2013-05-11 20:02:43 (GMT) |
|---|---|---|
| committer | dkf <donal.k.fellows@manchester.ac.uk> | 2013-05-11 20:02:43 (GMT) |
| commit | b5dfface8d2bbb92709c3ce349d4f101a4354361 (patch) | |
| tree | 97b8fc6e423461141b89ee540d8a912fb774310c /generic/tclCompCmds.c | |
| parent | 9571165813914daaf16bd8fb71b4f97e7affa1d6 (diff) | |
| download | tcl-b5dfface8d2bbb92709c3ce349d4f101a4354361.zip tcl-b5dfface8d2bbb92709c3ce349d4f101a4354361.tar.gz tcl-b5dfface8d2bbb92709c3ce349d4f101a4354361.tar.bz2 | |
Partial fix: still ongoing
Diffstat (limited to 'generic/tclCompCmds.c')
| -rw-r--r-- | generic/tclCompCmds.c | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/generic/tclCompCmds.c b/generic/tclCompCmds.c index 9ffdbc3..c2495bd 100644 --- a/generic/tclCompCmds.c +++ b/generic/tclCompCmds.c @@ -5761,6 +5761,7 @@ TclCompileReturnCmd( Tcl_DecrRefCount(returnOpts); TclEmitOpcode(INST_DONE, envPtr); + envPtr->currStackDepth = savedStackDepth; return TCL_OK; } } @@ -5778,6 +5779,7 @@ TclCompileReturnCmd( */ CompileReturnInternal(envPtr, INST_RETURN_IMM, code, level, returnOpts); + envPtr->currStackDepth = savedStackDepth + 1; return TCL_OK; issueRuntimeReturn: @@ -5807,6 +5809,7 @@ TclCompileReturnCmd( */ TclEmitOpcode(INST_RETURN_STK, envPtr); + envPtr->currStackDepth = savedStackDepth + 1; return TCL_OK; } |