… | |
… | |
395 | /* |
395 | /* |
396 | * the worst thing you can imagine happens first - we have to save |
396 | * the worst thing you can imagine happens first - we have to save |
397 | * (and reinitialize) all cv's in the whole callchain :( |
397 | * (and reinitialize) all cv's in the whole callchain :( |
398 | */ |
398 | */ |
399 | |
399 | |
400 | EXTEND (SP, 3 + 1); |
|
|
401 | PUSHs (Nullsv); |
400 | XPUSHs (Nullsv); |
402 | /* this loop was inspired by pp_caller */ |
401 | /* this loop was inspired by pp_caller */ |
403 | for (;;) |
402 | for (;;) |
404 | { |
403 | { |
405 | while (cxix >= 0) |
404 | while (cxix >= 0) |
406 | { |
405 | { |
… | |
… | |
455 | # define coro_init_stacks init_stacks |
454 | # define coro_init_stacks init_stacks |
456 | #else |
455 | #else |
457 | static void |
456 | static void |
458 | coro_init_stacks (pTHX) |
457 | coro_init_stacks (pTHX) |
459 | { |
458 | { |
460 | PL_curstackinfo = new_stackinfo(64, 4); |
459 | PL_curstackinfo = new_stackinfo(64, 6); |
461 | PL_curstackinfo->si_type = PERLSI_MAIN; |
460 | PL_curstackinfo->si_type = PERLSI_MAIN; |
462 | PL_curstack = PL_curstackinfo->si_stack; |
461 | PL_curstack = PL_curstackinfo->si_stack; |
463 | PL_mainstack = PL_curstack; /* remember in case we switch stacks */ |
462 | PL_mainstack = PL_curstack; /* remember in case we switch stacks */ |
464 | |
463 | |
465 | PL_stack_base = AvARRAY(PL_curstack); |
464 | PL_stack_base = AvARRAY(PL_curstack); |
… | |
… | |
486 | New(54,PL_savestack,64,ANY); |
485 | New(54,PL_savestack,64,ANY); |
487 | PL_savestack_ix = 0; |
486 | PL_savestack_ix = 0; |
488 | PL_savestack_max = 64; |
487 | PL_savestack_max = 64; |
489 | |
488 | |
490 | #if !PERL_VERSION_ATLEAST (5,9,0) |
489 | #if !PERL_VERSION_ATLEAST (5,9,0) |
491 | New(54,PL_retstack,8,OP*); |
490 | New(54,PL_retstack,4,OP*); |
492 | PL_retstack_ix = 0; |
491 | PL_retstack_ix = 0; |
493 | PL_retstack_max = 8; |
492 | PL_retstack_max = 4; |
494 | #endif |
493 | #endif |
495 | } |
494 | } |
496 | #endif |
495 | #endif |
497 | |
496 | |
498 | /* |
497 | /* |