… | |
… | |
1003 | load_perl (aTHX_ coro); |
1003 | load_perl (aTHX_ coro); |
1004 | coro_unwind_stacks (aTHX); |
1004 | coro_unwind_stacks (aTHX); |
1005 | coro_destruct_stacks (aTHX); |
1005 | coro_destruct_stacks (aTHX); |
1006 | |
1006 | |
1007 | // now save some sv's to be free'd later |
1007 | // now save some sv's to be free'd later |
1008 | svf [0] = GvSV (PL_defgv); |
1008 | svf [0] = GvSV (PL_defgv); |
1009 | svf [1] = (SV *)GvAV (PL_defgv); |
1009 | svf [1] = (SV *)GvAV (PL_defgv); |
1010 | svf [2] = GvSV (PL_errgv); |
1010 | svf [2] = GvSV (PL_errgv); |
1011 | svf [3] = (SV *)PL_defoutgv; |
1011 | svf [3] = (SV *)PL_defoutgv; |
1012 | svf [4] = PL_rs; |
1012 | svf [4] = PL_rs; |
1013 | svf [5] = GvSV (irsgv); |
1013 | svf [5] = GvSV (irsgv); |
1014 | svf [6] = (SV *)GvHV (PL_hintgv); |
1014 | svf [6] = (SV *)GvHV (PL_hintgv); |
1015 | svf [7] = PL_diehook; |
1015 | svf [7] = PL_diehook; |
1016 | svf [8] = PL_warnhook; |
1016 | svf [8] = PL_warnhook; |
1017 | |
|
|
1018 | assert (9 == sizeof (svf) / sizeof (*svf)); |
1017 | assert (9 == sizeof (svf) / sizeof (*svf)); |
1019 | |
1018 | |
1020 | load_perl (aTHX_ current); |
1019 | load_perl (aTHX_ current); |
1021 | } |
1020 | } |
1022 | |
1021 | |