diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-03-11 13:34:58 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-03-11 13:34:58 (GMT) |
| commit | e5fe428a4336e7ec7bf809c207bbf610877bb21e (patch) | |
| tree | f71782055f7c14e54ddda6c49f0f4cc3718a1180 /generic/tclExecute.c | |
| parent | 3eba98913e01126f1d8215c1bf6dbca778a273cb (diff) | |
| download | tcl-e5fe428a4336e7ec7bf809c207bbf610877bb21e.zip tcl-e5fe428a4336e7ec7bf809c207bbf610877bb21e.tar.gz tcl-e5fe428a4336e7ec7bf809c207bbf610877bb21e.tar.bz2 | |
clarify 'yieldparameter'. Eliminate variable 'unused', reduce coroutine stackspace
Diffstat (limited to 'generic/tclExecute.c')
| -rw-r--r-- | generic/tclExecute.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/generic/tclExecute.c b/generic/tclExecute.c index 0279218..a890d83 100644 --- a/generic/tclExecute.c +++ b/generic/tclExecute.c @@ -2453,7 +2453,7 @@ TEBCresume( fflush(stdout); } #endif - yieldParameter = 0; + yieldParameter = PTR2INT(NULL); /*==CORO_ACTIVATE_YIELD*/ Tcl_SetObjResult(interp, OBJ_AT_TOS); goto doYield; @@ -2508,7 +2508,7 @@ TEBCresume( TclSetTailcall(interp, valuePtr); corPtr->yieldPtr = valuePtr; iPtr->execEnvPtr = corPtr->eePtr; - yieldParameter = (PTR2INT(NULL)+1); /*==CORO_ACTIVATE_YIELDM*/ + yieldParameter = PTR2INT(NULL)+1; /*==CORO_ACTIVATE_YIELDM*/ doYield: /* TIP #280: Record the last piece of info needed by |