diff options
| author | msofer <msofer@noemail.net> | 2009-12-11 04:47:12 (GMT) |
|---|---|---|
| committer | msofer <msofer@noemail.net> | 2009-12-11 04:47:12 (GMT) |
| commit | aca3556e3a2beeafc89167dbffc2dc2c95b331df (patch) | |
| tree | 1f2bf344ff2311df7b4bd5a3874f1661c27cbc81 /generic/tclBasic.c | |
| parent | 066149db6bbf99eada1b81b17ad77f8fe7fced84 (diff) | |
| download | tcl-aca3556e3a2beeafc89167dbffc2dc2c95b331df.zip tcl-aca3556e3a2beeafc89167dbffc2dc2c95b331df.tar.gz tcl-aca3556e3a2beeafc89167dbffc2dc2c95b331df.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
FossilOrigin-Name: 76cabdcc5cdf64143f4e892b2e52b3fffd7c7f52
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. |