diff options
| author | dgp <dgp@users.sourceforge.net> | 2013-06-06 14:24:35 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2013-06-06 14:24:35 (GMT) |
| commit | deb30edf39eedf62f9b626a56fa6fa428cb46825 (patch) | |
| tree | c7e6f044e186c0710a1c2926f25fadaa7e313981 | |
| parent | 2c7a09949b324e43f3b044e79777aaa14c637544 (diff) | |
| download | tcl-deb30edf39eedf62f9b626a56fa6fa428cb46825.zip tcl-deb30edf39eedf62f9b626a56fa6fa428cb46825.tar.gz tcl-deb30edf39eedf62f9b626a56fa6fa428cb46825.tar.bz2 | |
3614360 Repair stack demands of optimized compiled [return LITERAL].
| -rw-r--r-- | generic/tclCompCmdsGR.c | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/generic/tclCompCmdsGR.c b/generic/tclCompCmdsGR.c index d101d82..5e3d456 100644 --- a/generic/tclCompCmdsGR.c +++ b/generic/tclCompCmdsGR.c @@ -2471,6 +2471,7 @@ TclCompileReturnCmd( Tcl_DecrRefCount(returnOpts); TclEmitOpcode(INST_DONE, envPtr); + TclAdjustStackDepth(1, envPtr); return TCL_OK; } } |