diff options
| author | sebres <sebres@users.sourceforge.net> | 2024-05-27 20:19:30 (GMT) |
|---|---|---|
| committer | sebres <sebres@users.sourceforge.net> | 2024-05-27 20:19:30 (GMT) |
| commit | c7ebbbdfdd63cb05821f68a743ffcd82305779b3 (patch) | |
| tree | 5c598529ddffc667ba1671188a816b5a413fbd6c /generic/tclInterp.c | |
| parent | 1fe714801dbea48e700ea80e6ad99d63d777e1e7 (diff) | |
| parent | f8c457b80f302a4587d875329a789e0906b13989 (diff) | |
| download | tcl-c7ebbbdfdd63cb05821f68a743ffcd82305779b3.zip tcl-c7ebbbdfdd63cb05821f68a743ffcd82305779b3.tar.gz tcl-c7ebbbdfdd63cb05821f68a743ffcd82305779b3.tar.bz2 | |
merge 8.7
Diffstat (limited to 'generic/tclInterp.c')
| -rw-r--r-- | generic/tclInterp.c | 13 |
1 files changed, 0 insertions, 13 deletions
diff --git a/generic/tclInterp.c b/generic/tclInterp.c index e70e6a5..70e1246 100644 --- a/generic/tclInterp.c +++ b/generic/tclInterp.c @@ -2842,18 +2842,6 @@ ChildEval( Tcl_Preserve(childInterp); Tcl_AllowExceptions(childInterp); - /* - * If we're transferring to another interpreter, check it's limits first. - * It's much more reliable to do that now rather than waiting for the - * intermittent checks done during running; the slight performance hit for - * a cross-interp call is not a big problem. [Bug e3f4a8b78d] - */ - - if (interp != childInterp && Tcl_LimitCheck(childInterp) != TCL_OK) { - result = TCL_ERROR; - goto done; - } - if (objc == 1) { /* * TIP #280: Make actual argument location available to eval'd script. @@ -2872,7 +2860,6 @@ ChildEval( result = Tcl_EvalObjEx(childInterp, objPtr, 0); Tcl_DecrRefCount(objPtr); } - done: Tcl_TransferResult(childInterp, result, interp); Tcl_Release(childInterp); |