| … | |
… | |
| 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(128, 1024/sizeof(PERL_CONTEXT)); |
460 | PL_curstackinfo = new_stackinfo(64, 4); |
| 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); |
| 466 | PL_stack_sp = PL_stack_base; |
466 | PL_stack_sp = PL_stack_base; |
| 467 | PL_stack_max = PL_stack_base + AvMAX(PL_curstack); |
467 | PL_stack_max = PL_stack_base + AvMAX(PL_curstack); |
| 468 | |
468 | |
| 469 | New(50,PL_tmps_stack,128,SV*); |
469 | New(50,PL_tmps_stack,64,SV*); |
| 470 | PL_tmps_floor = -1; |
470 | PL_tmps_floor = -1; |
| 471 | PL_tmps_ix = -1; |
471 | PL_tmps_ix = -1; |
| 472 | PL_tmps_max = 128; |
472 | PL_tmps_max = 64; |
| 473 | |
473 | |
| 474 | New(54,PL_markstack,32,I32); |
474 | New(54,PL_markstack,16,I32); |
| 475 | PL_markstack_ptr = PL_markstack; |
475 | PL_markstack_ptr = PL_markstack; |
| 476 | PL_markstack_max = PL_markstack + 32; |
476 | PL_markstack_max = PL_markstack + 16; |
| 477 | |
477 | |
| 478 | #ifdef SET_MARK_OFFSET |
478 | #ifdef SET_MARK_OFFSET |
| 479 | SET_MARK_OFFSET; |
479 | SET_MARK_OFFSET; |
| 480 | #endif |
480 | #endif |
| 481 | |
481 | |
| 482 | New(54,PL_scopestack,32,I32); |
482 | New(54,PL_scopestack,16,I32); |
| 483 | PL_scopestack_ix = 0; |
483 | PL_scopestack_ix = 0; |
| 484 | PL_scopestack_max = 32; |
484 | PL_scopestack_max = 16; |
| 485 | |
485 | |
| 486 | New(54,PL_savestack,64,ANY); |
486 | New(54,PL_savestack,32,ANY); |
| 487 | PL_savestack_ix = 0; |
487 | PL_savestack_ix = 0; |
| 488 | PL_savestack_max = 64; |
488 | PL_savestack_max = 32; |
| 489 | |
489 | |
| 490 | #if !PERL_VERSION_ATLEAST (5,9,0) |
490 | #if !PERL_VERSION_ATLEAST (5,9,0) |
| 491 | New(54,PL_retstack,16,OP*); |
491 | New(54,PL_retstack,8,OP*); |
| 492 | PL_retstack_ix = 0; |
492 | PL_retstack_ix = 0; |
| 493 | PL_retstack_max = 16; |
493 | PL_retstack_max = 8; |
| 494 | #endif |
494 | #endif |
| 495 | } |
495 | } |
| 496 | #endif |
496 | #endif |
| 497 | |
497 | |
| 498 | /* |
498 | /* |
