… | |
… | |
1309 | |
1309 | |
1310 | assert (("FATAL: tried to destroy currently running coroutine", coro->mainstack != PL_mainstack)); |
1310 | assert (("FATAL: tried to destroy currently running coroutine", coro->mainstack != PL_mainstack)); |
1311 | |
1311 | |
1312 | save_perl (aTHX_ current); |
1312 | save_perl (aTHX_ current); |
1313 | |
1313 | |
1314 | /* this will cause transfer_check to croak on block*/ |
1314 | /* this will cause transfer_check to croak on block */ |
1315 | SvRV_set (coro_current, (SV *)coro->hv); |
1315 | SvRV_set (coro_current, (SV *)coro->hv); |
1316 | |
1316 | |
1317 | load_perl (aTHX_ coro); |
1317 | load_perl (aTHX_ coro); |
1318 | |
1318 | |
1319 | /* restore swapped sv's */ |
1319 | /* restore swapped sv's */ |