… | |
… | |
999 | |
999 | |
1000 | assert (("FATAL: tried to destroy currently running coroutine", coro->mainstack != PL_mainstack)); |
1000 | assert (("FATAL: tried to destroy currently running coroutine", coro->mainstack != PL_mainstack)); |
1001 | |
1001 | |
1002 | save_perl (aTHX_ current); |
1002 | save_perl (aTHX_ current); |
1003 | load_perl (aTHX_ coro); |
1003 | load_perl (aTHX_ coro); |
|
|
1004 | |
1004 | coro_unwind_stacks (aTHX); |
1005 | coro_unwind_stacks (aTHX); |
1005 | coro_destruct_stacks (aTHX); |
1006 | coro_destruct_stacks (aTHX); |
1006 | |
1007 | |
1007 | // now save some sv's to be free'd later |
1008 | // now save some sv's to be free'd later |
1008 | svf [0] = GvSV (PL_defgv); |
1009 | svf [0] = GvSV (PL_defgv); |