diff options
| author | Miguel Sofer <miguel.sofer@gmail.com> | 2008-08-21 23:57:41 (GMT) |
|---|---|---|
| committer | Miguel Sofer <miguel.sofer@gmail.com> | 2008-08-21 23:57:41 (GMT) |
| commit | c81af542ef2037176d7f71f883aa3e93dfc4196b (patch) | |
| tree | cda129ecc3b3ff0b8e2b9b4b241ae31614de5556 /generic/tclBasic.c | |
| parent | edfda9078ba74cdc4c6038b014e610f7b6efcc96 (diff) | |
| download | tcl-c81af542ef2037176d7f71f883aa3e93dfc4196b.zip tcl-c81af542ef2037176d7f71f883aa3e93dfc4196b.tar.gz tcl-c81af542ef2037176d7f71f883aa3e93dfc4196b.tar.bz2 | |
* generic/tclBasic.c: Previous fix, now done right.
* generic/tclCmdIL.c:
* generic/tclInt.h:
* tests/unsupported.test:
Diffstat (limited to 'generic/tclBasic.c')
| -rw-r--r-- | generic/tclBasic.c | 11 |
1 files changed, 1 insertions, 10 deletions
diff --git a/generic/tclBasic.c b/generic/tclBasic.c index b50234b..53be9de 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.358 2008/08/21 21:01:23 msofer Exp $ + * RCS: @(#) $Id: tclBasic.c,v 1.359 2008/08/21 23:57:42 msofer Exp $ */ #include "tclInt.h" @@ -8173,7 +8173,6 @@ PlugCoroutineChains( corPtr->base.framePtr->callerVarPtr = corPtr->caller.varFramePtr; corPtr->base.cmdFramePtr->nextPtr = corPtr->caller.cmdFramePtr; - corPtr->levelOffset = iPtr->cmdFramePtr->level; } static int @@ -8190,12 +8189,6 @@ NRCoroutineFirstCallback( tmpPtr = tmpPtr->nextPtr; } - /* - * Set the base cmdFrame level to zero, it will be computed using the - * offset. - */ - - tmpPtr->level = 0; corPtr->base.cmdFramePtr = tmpPtr; } @@ -8396,8 +8389,6 @@ TclNRCoroutineObjCmd( * correct. The offset will be fixed for later runs. */ - corPtr->levelOffset = 0; - Tcl_DStringInit(&ds); if (nsPtr != iPtr->globalNsPtr) { Tcl_DStringAppend(&ds, nsPtr->fullName, -1); |