Attachment "1055676.patch" to
ticket [1055676fff]
added by
dgp
2004-10-28 21:58:09.
Index: generic/tclExecute.c
===================================================================
RCS file: /cvsroot/tcl/tcl/generic/tclExecute.c,v
retrieving revision 1.162
diff -u -r1.162 tclExecute.c
--- generic/tclExecute.c 25 Oct 2004 20:24:12 -0000 1.162
+++ generic/tclExecute.c 28 Oct 2004 14:54:49 -0000
@@ -1317,7 +1317,9 @@
Tcl_Obj *newObjResultPtr;
bytes = GetSrcInfoForPc(pc, codePtr, &length);
+ DECACHE_STACK_INFO();
result = Tcl_EvalEx(interp, bytes, length, 0);
+ CACHE_STACK_INFO();
if (result != TCL_OK) {
cleanup = 0;
goto processExceptionReturn;
