diff options
| author | dgp <dgp@users.sourceforge.net> | 2007-08-13 23:07:35 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2007-08-13 23:07:35 (GMT) |
| commit | a789ab33c1944041459d117c719d57c44582b717 (patch) | |
| tree | 010b01e269f67758c5fd56095f5438dec9f8cfe5 /generic/tclExecute.c | |
| parent | 03a98e8337487e74191cf5e805cc9d8a5481e952 (diff) | |
| download | tcl-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/tclExecute.c')
| -rw-r--r-- | generic/tclExecute.c | 4 |
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; |