summaryrefslogtreecommitdiffstats
path: root/generic/tclInterp.c
diff options
context:
space:
mode:
Diffstat (limited to 'generic/tclInterp.c')
-rw-r--r--generic/tclInterp.c13
1 files changed, 0 insertions, 13 deletions
diff --git a/generic/tclInterp.c b/generic/tclInterp.c
index e48ebd4..46c11d4 100644
--- a/generic/tclInterp.c
+++ b/generic/tclInterp.c
@@ -2904,18 +2904,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.
@@ -2934,7 +2922,6 @@ ChildEval(
result = Tcl_EvalObjEx(childInterp, objPtr, 0);
Tcl_DecrRefCount(objPtr);
}
- done:
Tcl_TransferResult(childInterp, result, interp);
Tcl_Release(childInterp);