Attachment "804681.patch" to
ticket [804681ffff]
added by
dgp
2003-09-13 04:00:40.
Index: generic/tclExecute.c
===================================================================
RCS file: /cvsroot/tcl/tcl/generic/tclExecute.c,v
retrieving revision 1.94.2.4
diff -u -r1.94.2.4 tclExecute.c
--- generic/tclExecute.c 5 Aug 2003 16:19:54 -0000 1.94.2.4
+++ generic/tclExecute.c 12 Sep 2003 20:55:47 -0000
@@ -4067,7 +4067,9 @@
if ((result == TCL_ERROR) && !(iPtr->flags & ERR_ALREADY_LOGGED)) {
bytes = GetSrcInfoForPc(pc, codePtr, &length);
if (bytes != NULL) {
+ DECACHE_STACK_INFO();
Tcl_LogCommandInfo(interp, codePtr->source, bytes, length);
+ CACHE_STACK_INFO();
iPtr->flags |= ERR_ALREADY_LOGGED;
}
}
