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 | a01b1afbddee53e1e90eb48f3ceb4ce266b24f0a (patch) | |
| tree | ae16d1db14ac06ece400ace2ebf55e140f60650e /generic/tclTrace.c | |
| parent | a2fa2a169f18995949a89c1ff0de30dce5d69cff (diff) | |
| download | tcl-a01b1afbddee53e1e90eb48f3ceb4ce266b24f0a.zip tcl-a01b1afbddee53e1e90eb48f3ceb4ce266b24f0a.tar.gz tcl-a01b1afbddee53e1e90eb48f3ceb4ce266b24f0a.tar.bz2 | |
revert mangling with "code" variable. This caused unrelated var.test failures.
Diffstat (limited to 'generic/tclTrace.c')
| -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) { |