summaryrefslogtreecommitdiffstats
path: root/generic/tclExecute.c
diff options
context:
space:
mode:
authorjan.nijtmans <nijtmans@users.sourceforge.net>2013-09-13 10:53:32 (GMT)
committerjan.nijtmans <nijtmans@users.sourceforge.net>2013-09-13 10:53:32 (GMT)
commit878be345c1b4a3fbf9756a06985a1b2ce306bd57 (patch)
tree3b1c003f61fa0e7430bab7d11a62da4c2b2a9623 /generic/tclExecute.c
parent53c609c3aa4042d00194dc6d3d2bea553ad9d605 (diff)
downloadtcl-878be345c1b4a3fbf9756a06985a1b2ce306bd57.zip
tcl-878be345c1b4a3fbf9756a06985a1b2ce306bd57.tar.gz
tcl-878be345c1b4a3fbf9756a06985a1b2ce306bd57.tar.bz2
Suggested fix for [bdd91c7e43]: tclsh crashes in [interp delete]bug_bdd91c7e43
Diffstat (limited to 'generic/tclExecute.c')
-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;