| … | |
… | |
| 455 | # define coro_init_stacks init_stacks |
455 | # define coro_init_stacks init_stacks |
| 456 | #else |
456 | #else |
| 457 | static void |
457 | static void |
| 458 | coro_init_stacks (pTHX) |
458 | coro_init_stacks (pTHX) |
| 459 | { |
459 | { |
| 460 | PL_curstackinfo = new_stackinfo(64, 4); |
460 | PL_curstackinfo = new_stackinfo(64, 6); |
| 461 | PL_curstackinfo->si_type = PERLSI_MAIN; |
461 | PL_curstackinfo->si_type = PERLSI_MAIN; |
| 462 | PL_curstack = PL_curstackinfo->si_stack; |
462 | PL_curstack = PL_curstackinfo->si_stack; |
| 463 | PL_mainstack = PL_curstack; /* remember in case we switch stacks */ |
463 | PL_mainstack = PL_curstack; /* remember in case we switch stacks */ |
| 464 | |
464 | |
| 465 | PL_stack_base = AvARRAY(PL_curstack); |
465 | PL_stack_base = AvARRAY(PL_curstack); |
| … | |
… | |
| 486 | New(54,PL_savestack,64,ANY); |
486 | New(54,PL_savestack,64,ANY); |
| 487 | PL_savestack_ix = 0; |
487 | PL_savestack_ix = 0; |
| 488 | PL_savestack_max = 64; |
488 | PL_savestack_max = 64; |
| 489 | |
489 | |
| 490 | #if !PERL_VERSION_ATLEAST (5,9,0) |
490 | #if !PERL_VERSION_ATLEAST (5,9,0) |
| 491 | New(54,PL_retstack,8,OP*); |
491 | New(54,PL_retstack,4,OP*); |
| 492 | PL_retstack_ix = 0; |
492 | PL_retstack_ix = 0; |
| 493 | PL_retstack_max = 8; |
493 | PL_retstack_max = 4; |
| 494 | #endif |
494 | #endif |
| 495 | } |
495 | } |
| 496 | #endif |
496 | #endif |
| 497 | |
497 | |
| 498 | /* |
498 | /* |
