| … | |
… | |
| 2878 | |
2878 | |
| 2879 | for (i = AvFILLp (av) - 1; i >= 0; i -= 2) |
2879 | for (i = AvFILLp (av) - 1; i >= 0; i -= 2) |
| 2880 | if (AvARRAY (av)[i] == (SV *)hook) |
2880 | if (AvARRAY (av)[i] == (SV *)hook) |
| 2881 | { |
2881 | { |
| 2882 | if (execute) |
2882 | if (execute) |
| 2883 | hook ((void *)AvARRAY (av)[i + 1]); |
2883 | hook (aTHX_ (void *)AvARRAY (av)[i + 1]); |
| 2884 | |
2884 | |
| 2885 | memmove (AvARRAY (av) + i, AvARRAY (av) + i + 2, AvFILLp (av) - i - 1); |
2885 | memmove (AvARRAY (av) + i, AvARRAY (av) + i + 2, AvFILLp (av) - i - 1); |
| 2886 | av_pop (av); |
2886 | av_pop (av); |
| 2887 | av_pop (av); |
2887 | av_pop (av); |
| 2888 | break; |
2888 | break; |
| … | |
… | |
| 2900 | { |
2900 | { |
| 2901 | struct coro *coro = SvSTATE (coro_sv); |
2901 | struct coro *coro = SvSTATE (coro_sv); |
| 2902 | |
2902 | |
| 2903 | if (SvSTATE_current == coro) |
2903 | if (SvSTATE_current == coro) |
| 2904 | if (enter) |
2904 | if (enter) |
| 2905 | enter (aTHX enter_arg); |
2905 | enter (aTHX_ enter_arg); |
| 2906 | |
2906 | |
| 2907 | enterleave_hook_xs (aTHX_ coro, &coro->on_enter_xs, enter, enter_arg); |
2907 | enterleave_hook_xs (aTHX_ coro, &coro->on_enter_xs, enter, enter_arg); |
| 2908 | enterleave_hook_xs (aTHX_ coro, &coro->on_leave_xs, leave, leave_arg); |
2908 | enterleave_hook_xs (aTHX_ coro, &coro->on_leave_xs, leave, leave_arg); |
| 2909 | } |
2909 | } |
| 2910 | |
2910 | |
