diff options
| author | dgp <dgp@users.sourceforge.net> | 2013-09-02 17:59:42 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2013-09-02 17:59:42 (GMT) |
| commit | a01e0439ec88f4f83820d36da9ed018cc3b9ff00 (patch) | |
| tree | 3e835a5ac80c112b5705e6c791cc58785bbe4039 /generic/tclBasic.c | |
| parent | 5441277b9a31d73e4d91383584882c9303e5c758 (diff) | |
| download | tcl-a01e0439ec88f4f83820d36da9ed018cc3b9ff00.zip tcl-a01e0439ec88f4f83820d36da9ed018cc3b9ff00.tar.gz tcl-a01e0439ec88f4f83820d36da9ed018cc3b9ff00.tar.bz2 | |
[010f4162ef] First step of fix on stammering errorstack. errorstack fixed.
errorinfo revision still under consideration.
Diffstat (limited to 'generic/tclBasic.c')
| -rw-r--r-- | generic/tclBasic.c | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/generic/tclBasic.c b/generic/tclBasic.c index 884b5cc..e909a1a 100644 --- a/generic/tclBasic.c +++ b/generic/tclBasic.c @@ -4679,6 +4679,9 @@ TEOV_RunEnterTraces( TclCleanupCommandMacro(cmdPtr); if (traceCode != TCL_OK) { + if (traceCode == TCL_ERROR) { + iPtr->flags |= ERR_ALREADY_LOGGED; + } return traceCode; } if (cmdEpoch != newEpoch) { @@ -4725,6 +4728,9 @@ TEOV_RunLeaveTraces( TclCleanupCommandMacro(cmdPtr); if (traceCode != TCL_OK) { + if (traceCode == TCL_ERROR) { + iPtr->flags |= ERR_ALREADY_LOGGED; + } return traceCode; } return result; |