summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorMiguel Sofer <miguel.sofer@gmail.com>2009-12-10 22:38:52 (GMT)
committerMiguel Sofer <miguel.sofer@gmail.com>2009-12-10 22:38:52 (GMT)
commit6702229811b97786ff7f9e400992cdcdd4d7b56e (patch)
tree308bf0fd69d34839dfc5f7fd2d4b441e67754caa
parent6e708a1db41169e8de8604f2e5afdbde80e26937 (diff)
downloadtcl-6702229811b97786ff7f9e400992cdcdd4d7b56e.zip
tcl-6702229811b97786ff7f9e400992cdcdd4d7b56e.tar.gz
tcl-6702229811b97786ff7f9e400992cdcdd4d7b56e.tar.bz2
* generic/tclBasic.c: small cleanup
-rw-r--r--ChangeLog2
-rw-r--r--generic/tclBasic.c47
2 files changed, 25 insertions, 24 deletions
diff --git a/ChangeLog b/ChangeLog
index 9d9420e..46d009c 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,7 @@
2009-12-10 Miguel Sofer <msofer@users.sf.net>
+ * generic/tclBasic.c: small cleanup
+
* generic/tclExecute.c: fix panic in http11.test caused by buggy
earlier commits in coroutine management.
diff --git a/generic/tclBasic.c b/generic/tclBasic.c
index 079d034..d4f905d 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.427 2009/12/10 18:23:28 msofer Exp $
+ * RCS: @(#) $Id: tclBasic.c,v 1.428 2009/12/10 22:38:52 msofer Exp $
*/
#include "tclInt.h"
@@ -8423,28 +8423,6 @@ static const CorContext NULL_CONTEXT = {NULL, NULL, NULL, NULL};
#define iPtr ((Interp *) interp)
-static int
-YieldToCallback(
- ClientData data[],
- Tcl_Interp *interp,
- int result)
-{
- /* CoroutineData *corPtr = data[0];*/
- Tcl_Obj *listPtr = data[1];
- ClientData nsPtr = data[2];
-
- /* yieldTo: invoke the command using tailcall tech */
- TEOV_callback *cbPtr;
-
- TclNRAddCallback(interp, NRTailcallEval, listPtr, nsPtr,
- NULL, NULL);
- cbPtr = TOP_CB(interp);
- TOP_CB(interp) = cbPtr->nextPtr;
-
- TclSpliceTailcall(interp, cbPtr);
- return TCL_OK;
-}
-
int
TclNRYieldObjCmd(
ClientData clientData,
@@ -8535,6 +8513,27 @@ TclNRYieldToObjCmd(
return TCL_OK;
}
+static int
+YieldToCallback(
+ ClientData data[],
+ Tcl_Interp *interp,
+ int result)
+{
+ /* CoroutineData *corPtr = data[0];*/
+ Tcl_Obj *listPtr = data[1];
+ ClientData nsPtr = data[2];
+
+ /* yieldTo: invoke the command using tailcall tech */
+ TEOV_callback *cbPtr;
+
+ TclNRAddCallback(interp, NRTailcallEval, listPtr, nsPtr,
+ NULL, NULL);
+ cbPtr = TOP_CB(interp);
+ TOP_CB(interp) = cbPtr->nextPtr;
+
+ TclSpliceTailcall(interp, cbPtr);
+ return TCL_OK;
+}
static int
RewindCoroutineCallback(
@@ -8655,8 +8654,8 @@ NRCoroutineExitCallback(
RESTORE_CONTEXT(corPtr->caller);
NRE_ASSERT(iPtr->framePtr == corPtr->caller.framePtr);
+ NRE_ASSERT(iPtr->varFramePtr = corPtr->caller.varFramePtr);
NRE_ASSERT(iPtr->cmdFramePtr == corPtr->caller.cmdFramePtr);
- iPtr->varFramePtr = corPtr->caller.varFramePtr;
iPtr->execEnvPtr = corPtr->callerEEPtr;