| … | |
… | |
| 650 | { |
650 | { |
| 651 | /* |
651 | /* |
| 652 | * this is a _very_ stripped down perl interpreter ;) |
652 | * this is a _very_ stripped down perl interpreter ;) |
| 653 | */ |
653 | */ |
| 654 | Coro__State ctx = (Coro__State)arg; |
654 | Coro__State ctx = (Coro__State)arg; |
|
|
655 | JMPENV coro_start_env; |
| 655 | |
656 | |
| 656 | /*FIXME*//* must set up top_env here */ |
657 | /* same as JMPENV_BOOTSTRAP */ |
|
|
658 | Zero(&coro_start_env, 1, JMPENV); |
|
|
659 | coro_start_env.je_ret = -1; |
|
|
660 | coro_start_env.je_mustcatch = TRUE; |
|
|
661 | PL_top_env = &coro_start_env; |
|
|
662 | |
| 657 | ctx->cursp = 0; |
663 | ctx->cursp = 0; |
| 658 | PL_op = PL_op->op_next; |
664 | PL_op = PL_op->op_next; |
| 659 | CALLRUNOPS(aTHX); |
665 | CALLRUNOPS(aTHX); |
| 660 | |
666 | |
| 661 | abort (); |
667 | abort (); |
