| … | |
… | |
| 588 | coro_mortal = 0; |
588 | coro_mortal = 0; |
| 589 | } |
589 | } |
| 590 | } |
590 | } |
| 591 | |
591 | |
| 592 | /* inject a fake call to Coro::State::_cctx_init into the execution */ |
592 | /* inject a fake call to Coro::State::_cctx_init into the execution */ |
| 593 | /* _cctx_init shoukld be careful, as it could be called at almost any time */ |
593 | /* _cctx_init should be careful, as it could be called at almost any time */ |
| 594 | /* during execution of a pelr program */ |
594 | /* during execution of a perl program */ |
| 595 | static void NOINLINE |
595 | static void NOINLINE |
| 596 | prepare_cctx (pTHX_ coro_cctx *cctx) |
596 | prepare_cctx (pTHX_ coro_cctx *cctx) |
| 597 | { |
597 | { |
| 598 | dSP; |
598 | dSP; |
| 599 | LOGOP myop; |
599 | LOGOP myop; |
