diff options
| author | mig <mig> | 2011-03-27 22:43:42 (GMT) |
|---|---|---|
| committer | mig <mig> | 2011-03-27 22:43:42 (GMT) |
| commit | ebe7cfc96d8d03998cc3df2030e3d56733082640 (patch) | |
| tree | 7c9f063599246198148dc2b0c3c2cff5e91d46ad /generic/tclBasic.c | |
| parent | 5d8e6c3cce8cdfbf23d812e1048233a2357c8edc (diff) | |
| download | tcl-ebe7cfc96d8d03998cc3df2030e3d56733082640.zip tcl-ebe7cfc96d8d03998cc3df2030e3d56733082640.tar.gz tcl-ebe7cfc96d8d03998cc3df2030e3d56733082640.tar.bz2 | |
* generic/tclBasic.c (TclNREvalObjEx): fix performance issue, notably apparent in tclbench's 'LIST lset foreach'. Many thanks to twylite for patiently researching the issue and explaining it to me: a missing Tcl_ResetObjResult that causes unwanted sharing of the current result Tcl_Obj.
Diffstat (limited to 'generic/tclBasic.c')
| -rw-r--r-- | generic/tclBasic.c | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/generic/tclBasic.c b/generic/tclBasic.c index 5f2b301..b34209b 100644 --- a/generic/tclBasic.c +++ b/generic/tclBasic.c @@ -6018,6 +6018,9 @@ TclNREvalObjEx( * iPtr->varFramePtr in case * TCL_EVAL_GLOBAL was set. */ + if (TclInterpReady(interp) != TCL_OK) { + return TCL_ERROR; + } if (flags & TCL_EVAL_GLOBAL) { savedVarFramePtr = iPtr->varFramePtr; iPtr->varFramePtr = iPtr->rootFramePtr; |