diff options
| author | dgp <dgp@users.sourceforge.net> | 2013-06-27 20:10:41 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2013-06-27 20:10:41 (GMT) |
| commit | 7924f4a694c43ca8fe4260041d090795b0791a96 (patch) | |
| tree | 82699e23c1e4be781989104cb532b5d991bf2a8e /generic/tclCompCmds.c | |
| parent | 59dda187056234f42857543990b47682bb686732 (diff) | |
| download | tcl-7924f4a694c43ca8fe4260041d090795b0791a96.zip tcl-7924f4a694c43ca8fe4260041d090795b0791a96.tar.gz tcl-7924f4a694c43ca8fe4260041d090795b0791a96.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/tclCompCmds.c')
| -rw-r--r-- | generic/tclCompCmds.c | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/generic/tclCompCmds.c b/generic/tclCompCmds.c index fddf152..18295eb 100644 --- a/generic/tclCompCmds.c +++ b/generic/tclCompCmds.c @@ -2544,7 +2544,7 @@ CompileEachloopCmd( Tcl_DStringInit(&varList); TclDStringAppendToken(&varList, &tokenPtr[1]); - code = Tcl_SplitList(interp, Tcl_DStringValue(&varList), + code = Tcl_SplitList(NULL, Tcl_DStringValue(&varList), &varcList[loopIndex], &varvList[loopIndex]); Tcl_DStringFree(&varList); if (code != TCL_OK) { @@ -2988,7 +2988,8 @@ TclCompileFormatCmd( ckfree(objv); Tcl_DecrRefCount(formatObj); if (tmpObj == NULL) { - return TCL_ERROR; + TclCompileSyntaxError(interp, envPtr); + return TCL_OK; } /* |