| … | |
… | |
| 556 | * allocate various perl stacks. This is an exact copy |
556 | * allocate various perl stacks. This is an exact copy |
| 557 | * of perl.c:init_stacks, except that it uses less memory |
557 | * of perl.c:init_stacks, except that it uses less memory |
| 558 | * on the (sometimes correct) assumption that coroutines do |
558 | * on the (sometimes correct) assumption that coroutines do |
| 559 | * not usually need a lot of stackspace. |
559 | * not usually need a lot of stackspace. |
| 560 | */ |
560 | */ |
| 561 | #if 1 |
561 | #if CORO_PREFER_PERL_FUNCTIONS |
| 562 | # define coro_init_stacks init_stacks |
562 | # define coro_init_stacks init_stacks |
| 563 | #else |
563 | #else |
| 564 | static void |
564 | static void |
| 565 | coro_init_stacks (pTHX) |
565 | coro_init_stacks (pTHX) |
| 566 | { |
566 | { |
