summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authordgp <dgp@users.sourceforge.net>2013-09-02 17:59:42 (GMT)
committerdgp <dgp@users.sourceforge.net>2013-09-02 17:59:42 (GMT)
commita01e0439ec88f4f83820d36da9ed018cc3b9ff00 (patch)
tree3e835a5ac80c112b5705e6c791cc58785bbe4039
parent5441277b9a31d73e4d91383584882c9303e5c758 (diff)
downloadtcl-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.
-rw-r--r--generic/tclBasic.c6
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;