summaryrefslogtreecommitdiffstats
path: root/generic
diff options
context:
space:
mode:
authordgp <dgp@users.sourceforge.net>2007-08-13 23:07:35 (GMT)
committerdgp <dgp@users.sourceforge.net>2007-08-13 23:07:35 (GMT)
commita789ab33c1944041459d117c719d57c44582b717 (patch)
tree010b01e269f67758c5fd56095f5438dec9f8cfe5 /generic
parent03a98e8337487e74191cf5e805cc9d8a5481e952 (diff)
downloadtcl-a789ab33c1944041459d117c719d57c44582b717.zip
tcl-a789ab33c1944041459d117c719d57c44582b717.tar.gz
tcl-a789ab33c1944041459d117c719d57c44582b717.tar.bz2
* generic/tclExecute.c: Provide DECACHE/CACHE protection to the
* tests/trace.test: Tcl_LogCommandInfo() call. [Bug 1773040]
Diffstat (limited to 'generic')
-rw-r--r--generic/tclExecute.c4
1 files changed, 3 insertions, 1 deletions
diff --git a/generic/tclExecute.c b/generic/tclExecute.c
index abb30e8..a54ee92 100644
--- a/generic/tclExecute.c
+++ b/generic/tclExecute.c
@@ -12,7 +12,7 @@
* See the file "license.terms" for information on usage and redistribution of
* this file, and for a DISCLAIMER OF ALL WARRANTIES.
*
- * RCS: @(#) $Id: tclExecute.c,v 1.312 2007/08/09 12:20:07 msofer Exp $
+ * RCS: @(#) $Id: tclExecute.c,v 1.313 2007/08/13 23:07:36 dgp Exp $
*/
#include "tclInt.h"
@@ -6511,7 +6511,9 @@ TclExecuteByteCode(
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;