diff options
| author | Miguel Sofer <miguel.sofer@gmail.com> | 2009-12-11 04:47:13 (GMT) |
|---|---|---|
| committer | Miguel Sofer <miguel.sofer@gmail.com> | 2009-12-11 04:47:13 (GMT) |
| commit | 11915ee6b5791aab49447d524ef382336aeec38d (patch) | |
| tree | 1f2bf344ff2311df7b4bd5a3874f1661c27cbc81 /generic/tclBasic.c | |
| parent | e225192e11ee22d35470bef993063ace4970231b (diff) | |
| download | tcl-11915ee6b5791aab49447d524ef382336aeec38d.zip tcl-11915ee6b5791aab49447d524ef382336aeec38d.tar.gz tcl-11915ee6b5791aab49447d524ef382336aeec38d.tar.bz2 | |
simplify the coroutine BP-chain monkey-patching; tclBasic does not need to
know about bottomPtr, tebc does not need to behave differently on exit for coros
Diffstat (limited to 'generic/tclBasic.c')
| -rw-r--r-- | generic/tclBasic.c | 4 |
1 files changed, 1 insertions, 3 deletions
diff --git a/generic/tclBasic.c b/generic/tclBasic.c index d8a449b..79d76be 100644 --- a/generic/tclBasic.c +++ b/generic/tclBasic.c @@ -16,7 +16,7 @@ * See the file "license.terms" for information on usage and redistribution of * this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclBasic.c,v 1.429 2009/12/10 23:52:30 msofer Exp $ + * RCS: @(#) $Id: tclBasic.c,v 1.430 2009/12/11 04:47:13 msofer Exp $ */ #include "tclInt.h" @@ -8717,7 +8717,6 @@ NRInterpCoroutine( TclNRAddCallback(interp, NRCoroutineCallerCallback, corPtr, NULL, NULL, NULL); - corPtr->callerBP = NULL;; corPtr->callerEEPtr = iPtr->execEnvPtr; iPtr->execEnvPtr = corPtr->eePtr; @@ -8852,7 +8851,6 @@ TclNRCoroutineObjCmd( corPtr->running = NULL_CONTEXT; corPtr->stackLevel = NULL; corPtr->auxNumLevels = iPtr->numLevels; - corPtr->callerBP = NULL; /* * Create the command that will run at the bottom of the coroutine. |