diff options
| author | dgp <dgp@users.sourceforge.net> | 2015-04-08 16:42:33 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2015-04-08 16:42:33 (GMT) |
| commit | 3b49d1ae60676917334358e87bf1e9766502d4c7 (patch) | |
| tree | c7e09cbb5705078332e12cd64d68863a9fa55dfb | |
| parent | 6cbfb973fe310b73c224da9596b24e61a99fa2bb (diff) | |
| download | tcl-3b49d1ae60676917334358e87bf1e9766502d4c7.zip tcl-3b49d1ae60676917334358e87bf1e9766502d4c7.tar.gz tcl-3b49d1ae60676917334358e87bf1e9766502d4c7.tar.bz2 | |
Correction suggested by miguel. Passes test suite and fixes bug demos.
| -rw-r--r-- | generic/tclExecute.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/generic/tclExecute.c b/generic/tclExecute.c index feff85b..43c2b08 100644 --- a/generic/tclExecute.c +++ b/generic/tclExecute.c @@ -4946,7 +4946,7 @@ TEBCresume( pc += pcAdjustment; TEBC_YIELD(); - TclMarkTailcall(interp); + TclPushTailcallPoint(interp); oPtr = contextPtr->oPtr; if (oPtr->flags & FILTER_HANDLING) { TclNRAddCallback(interp, FinalizeOONextFilter, |