… | |
… | |
365 | CvPADLIST (cv) = (AV *)POPs; |
365 | CvPADLIST (cv) = (AV *)POPs; |
366 | } |
366 | } |
367 | |
367 | |
368 | PUTBACK; |
368 | PUTBACK; |
369 | } |
369 | } |
|
|
370 | assert (!PL_comppad || AvARRAY (PL_comppad));//D |
370 | } |
371 | } |
371 | |
372 | |
372 | static void |
373 | static void |
373 | save_perl (Coro__State c) |
374 | save_perl (Coro__State c) |
374 | { |
375 | { |
|
|
376 | assert (!PL_comppad || AvARRAY (PL_comppad));//D |
375 | { |
377 | { |
376 | dSP; |
378 | dSP; |
377 | I32 cxix = cxstack_ix; |
379 | I32 cxix = cxstack_ix; |
378 | PERL_CONTEXT *ccstk = cxstack; |
380 | PERL_CONTEXT *ccstk = cxstack; |
379 | PERL_SI *top_si = PL_curstackinfo; |
381 | PERL_SI *top_si = PL_curstackinfo; |
… | |
… | |
538 | |
540 | |
539 | coro_init_stacks (); |
541 | coro_init_stacks (); |
540 | |
542 | |
541 | PL_curcop = &PL_compiling; |
543 | PL_curcop = &PL_compiling; |
542 | PL_in_eval = EVAL_NULL; |
544 | PL_in_eval = EVAL_NULL; |
|
|
545 | PL_comppad = 0; |
543 | PL_curpm = 0; |
546 | PL_curpm = 0; |
544 | PL_localizing = 0; |
547 | PL_localizing = 0; |
545 | PL_dirty = 0; |
548 | PL_dirty = 0; |
546 | PL_restartop = 0; |
549 | PL_restartop = 0; |
547 | |
550 | |