| … | |
… | |
| 1159 | struct coro *current = SvSTATE_current; |
1159 | struct coro *current = SvSTATE_current; |
| 1160 | |
1160 | |
| 1161 | assert (("FATAL: tried to destroy currently running coroutine", coro->mainstack != PL_mainstack)); |
1161 | assert (("FATAL: tried to destroy currently running coroutine", coro->mainstack != PL_mainstack)); |
| 1162 | |
1162 | |
| 1163 | save_perl (aTHX_ current); |
1163 | save_perl (aTHX_ current); |
|
|
1164 | /*SvRV_set (coro_current, (SV *)coro->hv);*/ |
| 1164 | load_perl (aTHX_ coro); |
1165 | load_perl (aTHX_ coro); |
| 1165 | |
1166 | |
| 1166 | coro_unwind_stacks (aTHX); |
1167 | coro_unwind_stacks (aTHX); |
| 1167 | coro_destruct_stacks (aTHX); |
1168 | coro_destruct_stacks (aTHX); |
| 1168 | |
1169 | |
| … | |
… | |
| 1179 | svf [6] = (SV *)GvHV (PL_hintgv); |
1180 | svf [6] = (SV *)GvHV (PL_hintgv); |
| 1180 | svf [7] = PL_diehook; |
1181 | svf [7] = PL_diehook; |
| 1181 | svf [8] = PL_warnhook; |
1182 | svf [8] = PL_warnhook; |
| 1182 | assert (9 == sizeof (svf) / sizeof (*svf)); |
1183 | assert (9 == sizeof (svf) / sizeof (*svf)); |
| 1183 | |
1184 | |
|
|
1185 | /*SvRV_set (coro_current, (SV *)current->hv);*/ |
| 1184 | load_perl (aTHX_ current); |
1186 | load_perl (aTHX_ current); |
| 1185 | } |
1187 | } |
| 1186 | |
1188 | |
| 1187 | { |
1189 | { |
| 1188 | unsigned int i; |
1190 | unsigned int i; |
