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 | 2593df952706439a96046069b2e1ce0184a9b6a3 (patch) | |
| tree | 4af584812a1128d2b5f0e8f5ed4025b42b359506 /generic/tclExecute.c | |
| parent | d7c6dcbdcddc3c35e9d243a50a8a9f9931a19fd6 (diff) | |
| download | tcl-2593df952706439a96046069b2e1ce0184a9b6a3.zip tcl-2593df952706439a96046069b2e1ce0184a9b6a3.tar.gz tcl-2593df952706439a96046069b2e1ce0184a9b6a3.tar.bz2 | |
completing the fix for bug d87cb182053fd79b3
Diffstat (limited to 'generic/tclExecute.c')
| -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); |