diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-03-13 00:39:13 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-03-13 00:39:13 (GMT) |
| commit | 97299abbed9fd4bee8a5f2b8e3efabdb9e525ff7 (patch) | |
| tree | 05b73f05c00573dd7f9ddde10a34dcfb9b736feb /generic/tclExecute.c | |
| parent | faf6b59bc281418a6a1cdf37dbee88c7fbd2429b (diff) | |
| parent | 1eaffe477b0ae6538983f20134f28711e94ecdbd (diff) | |
| download | tcl-97299abbed9fd4bee8a5f2b8e3efabdb9e525ff7.zip tcl-97299abbed9fd4bee8a5f2b8e3efabdb9e525ff7.tar.gz tcl-97299abbed9fd4bee8a5f2b8e3efabdb9e525ff7.tar.bz2 | |
Merge 8.7
Diffstat (limited to 'generic/tclExecute.c')
| -rw-r--r-- | generic/tclExecute.c | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/generic/tclExecute.c b/generic/tclExecute.c index 6b47f02..d3b9dac 100644 --- a/generic/tclExecute.c +++ b/generic/tclExecute.c @@ -2368,7 +2368,7 @@ TEBCresume( { CoroutineData *corPtr; - int yieldParameter; + void *yieldParameter; case INST_YIELD: corPtr = iPtr->execEnvPtr->corPtr; @@ -2396,7 +2396,7 @@ TEBCresume( fflush(stdout); } #endif - yieldParameter = 0; + yieldParameter = NULL; /*==CORO_ACTIVATE_YIELD*/ Tcl_SetObjResult(interp, OBJ_AT_TOS); goto doYield; @@ -2451,7 +2451,7 @@ TEBCresume( TclSetTailcall(interp, valuePtr); corPtr->yieldPtr = valuePtr; iPtr->execEnvPtr = corPtr->eePtr; - yieldParameter = (PTR2INT(NULL)+1); /*==CORO_ACTIVATE_YIELDM*/ + yieldParameter = INT2PTR(1); /*==CORO_ACTIVATE_YIELDM*/ doYield: /* TIP #280: Record the last piece of info needed by @@ -2469,7 +2469,7 @@ TEBCresume( cleanup = 1; TEBC_YIELD(); TclNRAddCallback(interp, TclNRCoroutineActivateCallback, corPtr, - INT2PTR(yieldParameter), NULL, NULL); + yieldParameter, NULL, NULL); return TCL_OK; } |