| … | |
… | |
| 936 | /* very slow, but rare, check */ |
936 | /* very slow, but rare, check */ |
| 937 | if (!sv_derived_from (sv_2mortal (newRV_inc (coro)), "Coro::State")) |
937 | if (!sv_derived_from (sv_2mortal (newRV_inc (coro)), "Coro::State")) |
| 938 | croak ("Coro::State object required"); |
938 | croak ("Coro::State object required"); |
| 939 | } |
939 | } |
| 940 | |
940 | |
| 941 | mg = SvMAGIC (coro); |
941 | mg = CORO_MAGIC (coro); |
| 942 | assert (mg->mg_type == PERL_MAGIC_ext); |
|
|
| 943 | return (struct coro *)mg->mg_ptr; |
942 | return (struct coro *)mg->mg_ptr; |
| 944 | } |
943 | } |
| 945 | |
944 | |
| 946 | static void |
945 | static void |
| 947 | prepare_transfer (struct transfer_args *ta, SV *prev_sv, SV *next_sv) |
946 | prepare_transfer (struct transfer_args *ta, SV *prev_sv, SV *next_sv) |
