| … | |
… | |
| 90 | |
90 | |
| 91 | # this is called for each newly created C perl environment |
91 | # this is called for each newly created C perl environment |
| 92 | # be careful, this is not a normal function, it is never |
92 | # be careful, this is not a normal function, it is never |
| 93 | # being "entersub"'d and never must "leavesub"'d |
93 | # being "entersub"'d and never must "leavesub"'d |
| 94 | sub cctx_init { |
94 | sub cctx_init { |
| 95 | # warn "coroutine header: $cctx_stack $cctx_restartop <@_>\n";#d# |
|
|
| 96 | ++$cctx_count; |
95 | ++$cctx_count; |
| 97 | _set_stacklevel $cctx_stack; |
96 | _set_stacklevel $cctx_stack; |
| 98 | |
97 | |
| 99 | # this will jump to the actual coroutine op |
98 | # this will jump to the actual coroutine op |
| 100 | _nonlocal_goto $cctx_restartop; |
99 | _nonlocal_goto $cctx_restartop; |
