diff options
| author | dgp@users.sourceforge.net <dgp> | 2013-06-27 20:10:41 (GMT) |
|---|---|---|
| committer | dgp@users.sourceforge.net <dgp> | 2013-06-27 20:10:41 (GMT) |
| commit | 70dc4eed1c4388de8b189bdd3bae47feb8b5ac1a (patch) | |
| tree | 82699e23c1e4be781989104cb532b5d991bf2a8e /generic/tclCompCmdsGR.c | |
| parent | 500c9e2683655bfe95d0f8ff10c13d75acfc6cff (diff) | |
| download | tcl-70dc4eed1c4388de8b189bdd3bae47feb8b5ac1a.zip tcl-70dc4eed1c4388de8b189bdd3bae47feb8b5ac1a.tar.gz tcl-70dc4eed1c4388de8b189bdd3bae47feb8b5ac1a.tar.bz2 | |
Stop the compileProc routines leaving behind error messages in interp.
(Nicer way to solve [Bug 20a81392ec].) Make simplifications in
TclCompileScript() make possible by the new structure. Still a work
in progress.
Diffstat (limited to 'generic/tclCompCmdsGR.c')
| -rw-r--r-- | generic/tclCompCmdsGR.c | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/generic/tclCompCmdsGR.c b/generic/tclCompCmdsGR.c index f7c15e6..4de8cf2 100644 --- a/generic/tclCompCmdsGR.c +++ b/generic/tclCompCmdsGR.c @@ -2534,6 +2534,7 @@ TclCompileSyntaxError( TclEmitPush(TclRegisterNewLiteral(envPtr, bytes, numBytes), envPtr); CompileReturnInternal(envPtr, INST_SYNTAX, TCL_ERROR, 0, TclNoErrorStack(interp, Tcl_GetReturnOptions(interp, TCL_ERROR))); + Tcl_ResetResult(interp); } /* |