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 | 269c56a9698699f195e90fd7c25d82838befa8bb (patch) | |
| tree | 15e4e3e1afe2d0027346c87571aa13ffab18c6ef /generic/tclBasic.c | |
| parent | dc83b7dd6cf2ac488c5bf8d4756cd4490da2af28 (diff) | |
| download | tcl-269c56a9698699f195e90fd7c25d82838befa8bb.zip tcl-269c56a9698699f195e90fd7c25d82838befa8bb.tar.gz tcl-269c56a9698699f195e90fd7c25d82838befa8bb.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; } |