… | |
… | |
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 | /* |