summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authordgp <dgp@users.sourceforge.net>2013-09-13 14:09:09 (GMT)
committerdgp <dgp@users.sourceforge.net>2013-09-13 14:09:09 (GMT)
commit28deb9be7fe8d9c43b139e883e9698cace2ebb94 (patch)
treecc3b3fe93350cce310b13360ed32d036380bf33d
parent53c609c3aa4042d00194dc6d3d2bea553ad9d605 (diff)
parent878be345c1b4a3fbf9756a06985a1b2ce306bd57 (diff)
downloadtcl-28deb9be7fe8d9c43b139e883e9698cace2ebb94.zip
tcl-28deb9be7fe8d9c43b139e883e9698cace2ebb94.tar.gz
tcl-28deb9be7fe8d9c43b139e883e9698cace2ebb94.tar.bz2
[bdd91c7e43] Stop crash due to error in execution stack memory management.
Thanks to azazel for the fix.
-rw-r--r--generic/tclExecute.c1
1 files changed, 1 insertions, 0 deletions
diff --git a/generic/tclExecute.c b/generic/tclExecute.c
index 8fb8e63..e657828 100644
--- a/generic/tclExecute.c
+++ b/generic/tclExecute.c
@@ -2311,6 +2311,7 @@ TclExecuteByteCode(
initCatchTop += moved;
catchTop += moved;
+ bcFramePtr = (CmdFrame *) (initCatchTop + codePtr->maxExceptDepth + 1);
initTosPtr += moved;
tosPtr += moved;
esPtr = iPtr->execEnvPtr->execStackPtr;