diff options
| author | Miguel Sofer <miguel.sofer@gmail.com> | 2015-03-23 00:33:07 (GMT) |
|---|---|---|
| committer | Miguel Sofer <miguel.sofer@gmail.com> | 2015-03-23 00:33:07 (GMT) |
| commit | 2cc11d4918127e3ad2d7af5100ddf40c62cdb7f9 (patch) | |
| tree | 4af584812a1128d2b5f0e8f5ed4025b42b359506 | |
| parent | 7dbf5ed0b0e60ff40474e45e7b0eb498d4eed3b9 (diff) | |
| download | tcl-2cc11d4918127e3ad2d7af5100ddf40c62cdb7f9.zip tcl-2cc11d4918127e3ad2d7af5100ddf40c62cdb7f9.tar.gz tcl-2cc11d4918127e3ad2d7af5100ddf40c62cdb7f9.tar.bz2 | |
completing the fix for bug d87cb182053fd79b3
| -rw-r--r-- | generic/tclExecute.c | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/generic/tclExecute.c b/generic/tclExecute.c index 322bd20..4790ba3 100644 --- a/generic/tclExecute.c +++ b/generic/tclExecute.c @@ -3185,6 +3185,7 @@ TEBCresume( pc += 6; TEBC_YIELD(); + TclMarkTailcall(interp); TclNRAddCallback(interp, TclClearRootEnsemble, NULL,NULL,NULL,NULL); return TclNREvalObjEx(interp, objPtr, TCL_EVAL_INVOKE, NULL, INT_MIN); |