diff options
author | dgp <dgp@noemail.net> | 2013-06-27 20:10:41 (GMT) |
---|---|---|
committer | dgp <dgp@noemail.net> | 2013-06-27 20:10:41 (GMT) |
commit | c43b24ba531e96ef0e0fab7301cd1395df3044a3 (patch) | |
tree | 83294a3893b85e966b7a404e685ac6967aabfc7d /generic/tclCompCmdsGR.c | |
parent | 0c1b5edc39c82abc69c178b69b06408f3f1a531e (diff) | |
download | tcl-c43b24ba531e96ef0e0fab7301cd1395df3044a3.zip tcl-c43b24ba531e96ef0e0fab7301cd1395df3044a3.tar.gz tcl-c43b24ba531e96ef0e0fab7301cd1395df3044a3.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.
FossilOrigin-Name: 0a9f3b2935086aaea4cee2c3fedd15f8f5c54161
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); } /* |