diff options
| author | Miguel Sofer <miguel.sofer@gmail.com> | 2015-12-12 15:18:01 (GMT) |
|---|---|---|
| committer | Miguel Sofer <miguel.sofer@gmail.com> | 2015-12-12 15:18:01 (GMT) |
| commit | d2307504cb8e9abfc1734f2311befbf85cbb5425 (patch) | |
| tree | 86bbbeecbe5d7736a592ce834f4e2f894510963b /generic/tclBasic.c | |
| parent | 2e36812df07374858548fac08c3e374913b7cdb1 (diff) | |
| download | tcl-d2307504cb8e9abfc1734f2311befbf85cbb5425.zip tcl-d2307504cb8e9abfc1734f2311befbf85cbb5425.tar.gz tcl-d2307504cb8e9abfc1734f2311befbf85cbb5425.tar.bz2 | |
incorporate limit checks into TclInterpReady
Diffstat (limited to 'generic/tclBasic.c')
| -rw-r--r-- | generic/tclBasic.c | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/generic/tclBasic.c b/generic/tclBasic.c index 088278e..1575048 100644 --- a/generic/tclBasic.c +++ b/generic/tclBasic.c @@ -3807,6 +3807,10 @@ TclInterpReady( return TCL_ERROR; } + if (TclLimitExceeded(iPtr->limit)) { + return TCL_ERROR; + } + /* * Check depth of nested calls to Tcl_Eval: if this gets too large, it's * probably because of an infinite loop somewhere. @@ -4179,10 +4183,6 @@ EvalObjvCore( return TCL_OK; } - if (TclLimitExceeded(iPtr->limit)) { - return TCL_ERROR; - } - /* * Configure evaluation context to match the requested flags. */ |