diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2013-02-19 10:53:29 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2013-02-19 10:53:29 (GMT) |
| commit | f8e35a6396aefc1ffbb6a104b8cfd659e1afa2d9 (patch) | |
| tree | ae16d1db14ac06ece400ace2ebf55e140f60650e | |
| parent | 7ba8e6119017551866f531be022705ef17a1ed39 (diff) | |
| download | tcl-f8e35a6396aefc1ffbb6a104b8cfd659e1afa2d9.zip tcl-f8e35a6396aefc1ffbb6a104b8cfd659e1afa2d9.tar.gz tcl-f8e35a6396aefc1ffbb6a104b8cfd659e1afa2d9.tar.bz2 | |
revert mangling with "code" variable. This caused unrelated var.test failures.
| -rw-r--r-- | generic/tclTrace.c | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/generic/tclTrace.c b/generic/tclTrace.c index fd7566d..9298897 100644 --- a/generic/tclTrace.c +++ b/generic/tclTrace.c @@ -1482,7 +1482,7 @@ TclCheckExecutionTraces( iPtr->activeCmdTracePtr = active.nextPtr; if (state) { if (traceCode == TCL_OK) { - traceCode = Tcl_RestoreInterpState(interp, state); + (void) Tcl_RestoreInterpState(interp, state); } else { Tcl_DiscardInterpState(state); } @@ -1632,7 +1632,7 @@ TclCheckInterpTraces( iPtr->activeInterpTracePtr = active.nextPtr; if (state) { if (traceCode == TCL_OK) { - traceCode = Tcl_RestoreInterpState(interp, state); + (void) Tcl_RestoreInterpState(interp, state); } else { Tcl_DiscardInterpState(state); } @@ -2726,7 +2726,7 @@ TclCallVarTraces( iPtr->flags &= ~(ERR_ALREADY_LOGGED); Tcl_DiscardInterpState(state); } else { - code = Tcl_RestoreInterpState((Tcl_Interp *)iPtr, state); + (void) Tcl_RestoreInterpState((Tcl_Interp *)iPtr, state); } DisposeTraceResult(disposeFlags,result); } else if (state) { |