| … | |
… | |
| 901 | slf_frame.prepare = prepare_nop; /* provide a nop function for an eventual pp_slf */ |
901 | slf_frame.prepare = prepare_nop; /* provide a nop function for an eventual pp_slf */ |
| 902 | slf_frame.check = slf_check_nop; /* signal pp_slf to not repeat */ |
902 | slf_frame.check = slf_check_nop; /* signal pp_slf to not repeat */ |
| 903 | |
903 | |
| 904 | /* and we have to provide the pp_slf op in any case, so pp_slf can skip it */ |
904 | /* and we have to provide the pp_slf op in any case, so pp_slf can skip it */ |
| 905 | coro_setup_op.op_next = PL_op; |
905 | coro_setup_op.op_next = PL_op; |
| 906 | coro_setup_op.op_type = OP_CUSTOM; |
906 | coro_setup_op.op_type = OP_ENTERSUB; |
| 907 | coro_setup_op.op_ppaddr = pp_slf; |
907 | coro_setup_op.op_ppaddr = pp_slf; |
| 908 | /* no flags etc. required, as an init function won't be called */ |
908 | /* no flags etc. required, as an init function won't be called */ |
| 909 | |
909 | |
| 910 | PL_op = (OP *)&coro_setup_op; |
910 | PL_op = (OP *)&coro_setup_op; |
| 911 | |
911 | |
| … | |
… | |
| 2250 | } |
2250 | } |
| 2251 | else |
2251 | else |
| 2252 | slf_argc = 0; |
2252 | slf_argc = 0; |
| 2253 | |
2253 | |
| 2254 | PL_op->op_ppaddr = pp_slf; |
2254 | PL_op->op_ppaddr = pp_slf; |
| 2255 | PL_op->op_type = OP_CUSTOM; /* maybe we should leave it at entersub? */ |
2255 | /*PL_op->op_type = OP_CUSTOM; /* we do behave like entersub still */ |
| 2256 | |
2256 | |
| 2257 | PL_op = (OP *)&slf_restore; |
2257 | PL_op = (OP *)&slf_restore; |
| 2258 | } |
2258 | } |
| 2259 | |
2259 | |
| 2260 | /*****************************************************************************/ |
2260 | /*****************************************************************************/ |
