diff options
| author | mig <mig@noemail.net> | 2011-04-11 10:37:39 (GMT) |
|---|---|---|
| committer | mig <mig@noemail.net> | 2011-04-11 10:37:39 (GMT) |
| commit | 645d4110a766cb87606256362847cf682f403e4d (patch) | |
| tree | 1f3e4c52bddeb57ff9a613cd7cbe551508c36206 /generic/tclBasic.c | |
| parent | b53656eb515013c732c2b2f68b94ce7ec828fd86 (diff) | |
| download | tcl-645d4110a766cb87606256362847cf682f403e4d.zip tcl-645d4110a766cb87606256362847cf682f403e4d.tar.gz tcl-645d4110a766cb87606256362847cf682f403e4d.tar.bz2 | |
insure that 'coroutine eval' runs the initial command in the proper context, [Bug 3282869]
FossilOrigin-Name: 15f9fcba6e6a5ae0bd74680dc4219c31aecfaf25
Diffstat (limited to 'generic/tclBasic.c')
| -rw-r--r-- | generic/tclBasic.c | 11 |
1 files changed, 9 insertions, 2 deletions
diff --git a/generic/tclBasic.c b/generic/tclBasic.c index f00864f..5019c86 100644 --- a/generic/tclBasic.c +++ b/generic/tclBasic.c @@ -8866,6 +8866,7 @@ TclNRCoroutineObjCmd( const char *fullName, *procName; Namespace *nsPtr, *altNsPtr, *cxtNsPtr; Tcl_DString ds; + Namespace *lookupNsPtr = iPtr->varFramePtr->nsPtr; if (objc < 3) { Tcl_WrongNumArgs(interp, 1, objv, "name cmd ?arg ...?"); @@ -8952,7 +8953,7 @@ TclNRCoroutineObjCmd( } /* - * Save the base context. + * Create the base context. */ corPtr->running.framePtr = iPtr->rootFramePtr; @@ -8972,13 +8973,19 @@ TclNRCoroutineObjCmd( corPtr->callerEEPtr = iPtr->execEnvPtr; corPtr->eePtr->corPtr = corPtr; + SAVE_CONTEXT(corPtr->caller); + corPtr->callerEEPtr = iPtr->execEnvPtr; + RESTORE_CONTEXT(corPtr->running); iPtr->execEnvPtr = corPtr->eePtr; TclNRAddCallback(interp, NRCoroutineExitCallback, corPtr, NULL, NULL, NULL); - iPtr->lookupNsPtr = iPtr->varFramePtr->nsPtr; + iPtr->lookupNsPtr = lookupNsPtr; Tcl_NREvalObj(interp, Tcl_NewListObj(objc-2, objv+2), 0); + + SAVE_CONTEXT(corPtr->running); + RESTORE_CONTEXT(corPtr->caller); iPtr->execEnvPtr = corPtr->callerEEPtr; /* |