diff options
| author | sebres <sebres@users.sourceforge.net> | 2024-05-27 19:26:46 (GMT) |
|---|---|---|
| committer | sebres <sebres@users.sourceforge.net> | 2024-05-27 19:26:46 (GMT) |
| commit | 3a0060b46224a9c6b8c7ad630558ca441ca778ef (patch) | |
| tree | 15e4e3e1afe2d0027346c87571aa13ffab18c6ef /generic/tclBasic.c | |
| parent | 1c8e57af313b8a648e803d05a8563cb16c1beec7 (diff) | |
| download | tcl-3a0060b46224a9c6b8c7ad630558ca441ca778ef.zip tcl-3a0060b46224a9c6b8c7ad630558ca441ca778ef.tar.gz tcl-3a0060b46224a9c6b8c7ad630558ca441ca778ef.tar.bz2 | |
fix for [e3f4a8b78dec4bdb]: don't swallow limit errors in further invocations of EvalObjvCore (e. g. direct invocation or NRE, Tcl_EvalObjv, Tcl_EvalObjEx, TclNREvalObjEx, etc);
partially reverts [b740e2abbd44c7d0]
Diffstat (limited to 'generic/tclBasic.c')
| -rw-r--r-- | generic/tclBasic.c | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/generic/tclBasic.c b/generic/tclBasic.c index c462278..b66c1cc 100644 --- a/generic/tclBasic.c +++ b/generic/tclBasic.c @@ -4330,6 +4330,10 @@ EvalObjvCore( } if (TclLimitExceeded(iPtr->limit)) { + /* generate error message if not yet already logged at this stage */ + if (!(iPtr->flags & ERR_ALREADY_LOGGED)) { + Tcl_LimitCheck(interp); + } return TCL_ERROR; } |