diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2021-06-23 13:27:55 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2021-06-23 13:27:55 (GMT) |
| commit | cbb66412ca40047eab4b424f4f86150f71b622d9 (patch) | |
| tree | 52a5e0aa2fc7151657345a0a0cbbe4edd3802d23 /generic/tclExecute.c | |
| parent | 20fcf335945daf5dedf6f10f940026b681dd7f1b (diff) | |
| parent | 501954d5aaf9401f977885fd340298baacde61a2 (diff) | |
| download | tcl-cbb66412ca40047eab4b424f4f86150f71b622d9.zip tcl-cbb66412ca40047eab4b424f4f86150f71b622d9.tar.gz tcl-cbb66412ca40047eab4b424f4f86150f71b622d9.tar.bz2 | |
Merge 8.7
Diffstat (limited to 'generic/tclExecute.c')
| -rw-r--r-- | generic/tclExecute.c | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/generic/tclExecute.c b/generic/tclExecute.c index debb06e..7e51c0d 100644 --- a/generic/tclExecute.c +++ b/generic/tclExecute.c @@ -2506,6 +2506,7 @@ TEBCresume( Tcl_IncrRefCount(valuePtr); iPtr->execEnvPtr = corPtr->callerEEPtr; TclSetTailcall(interp, valuePtr); + corPtr->yieldPtr = valuePtr; iPtr->execEnvPtr = corPtr->eePtr; yieldParameter = (PTR2INT(NULL)+1); /*==CORO_ACTIVATE_YIELDM*/ @@ -5744,7 +5745,7 @@ TEBCresume( { ClientData ptr1, ptr2; int type1, type2; - Tcl_WideInt w1 = 0, w2, wResult; + Tcl_WideInt w1, w2, wResult; case INST_NUM_TYPE: if (GetNumberFromObj(NULL, OBJ_AT_TOS, &ptr1, &type1) != TCL_OK) { |