summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authordgp <dgp@users.sourceforge.net>2013-06-06 14:24:35 (GMT)
committerdgp <dgp@users.sourceforge.net>2013-06-06 14:24:35 (GMT)
commitdeb30edf39eedf62f9b626a56fa6fa428cb46825 (patch)
treec7e6f044e186c0710a1c2926f25fadaa7e313981
parent2c7a09949b324e43f3b044e79777aaa14c637544 (diff)
downloadtcl-deb30edf39eedf62f9b626a56fa6fa428cb46825.zip
tcl-deb30edf39eedf62f9b626a56fa6fa428cb46825.tar.gz
tcl-deb30edf39eedf62f9b626a56fa6fa428cb46825.tar.bz2
3614360 Repair stack demands of optimized compiled [return LITERAL].
-rw-r--r--generic/tclCompCmdsGR.c1
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;
}
}