| … | |
… | |
| 383 | { |
383 | { |
| 384 | #define VAR(name,type) PL_ ## name = c->name; |
384 | #define VAR(name,type) PL_ ## name = c->name; |
| 385 | # include "state.h" |
385 | # include "state.h" |
| 386 | #undef VAR |
386 | #undef VAR |
| 387 | |
387 | |
| 388 | GvSV (PL_defgv) = c->defsv; |
388 | GvSV (PL_defgv) = c->defsv; |
| 389 | GvAV (PL_defgv) = c->defav; |
389 | GvAV (PL_defgv) = c->defav; |
| 390 | GvSV (PL_errgv) = c->errsv; |
390 | GvSV (PL_errgv) = c->errsv; |
| 391 | GvIOp(PL_defoutgv) = c->deffh; |
391 | PL_defoutgv = c->deffh; |
| 392 | PL_rs = c->irssv; |
392 | PL_rs = c->irssv; |
| 393 | GvSV (irsgv) = c->irssv_sv; |
393 | GvSV (irsgv) = c->irssv_sv; |
| 394 | |
394 | |
| 395 | { |
395 | { |
| 396 | dSP; |
396 | dSP; |
| 397 | CV *cv; |
397 | CV *cv; |
| 398 | |
398 | |
| … | |
… | |
| 459 | } |
459 | } |
| 460 | |
460 | |
| 461 | c->defav = GvAV (PL_defgv); |
461 | c->defav = GvAV (PL_defgv); |
| 462 | c->defsv = DEFSV; |
462 | c->defsv = DEFSV; |
| 463 | c->errsv = ERRSV; |
463 | c->errsv = ERRSV; |
| 464 | c->deffh = GvIOp (PL_defoutgv); |
464 | c->deffh = PL_defoutgv; |
| 465 | c->irssv = PL_rs; |
465 | c->irssv = PL_rs; |
| 466 | c->irssv_sv = GvSV (irsgv); |
466 | c->irssv_sv = GvSV (irsgv); |
| 467 | |
467 | |
| 468 | #define VAR(name,type)c->name = PL_ ## name; |
468 | #define VAR(name,type)c->name = PL_ ## name; |
| 469 | # include "state.h" |
469 | # include "state.h" |
| … | |
… | |
| 601 | PL_restartop = 0; |
601 | PL_restartop = 0; |
| 602 | |
602 | |
| 603 | GvSV (PL_defgv) = NEWSV (0, 0); |
603 | GvSV (PL_defgv) = NEWSV (0, 0); |
| 604 | GvAV (PL_defgv) = coro->args; coro->args = 0; |
604 | GvAV (PL_defgv) = coro->args; coro->args = 0; |
| 605 | GvSV (PL_errgv) = NEWSV (0, 0); |
605 | GvSV (PL_errgv) = NEWSV (0, 0); |
| 606 | GvSV (irsgv) = newSVpvn ("\n", 1); sv_magic (GvSV (irsgv), irsgv, PERL_MAGIC_sv, "/", 1); |
606 | GvSV (irsgv) = newSVpvn ("\n", 1); sv_magic (GvSV (irsgv), (SV *)irsgv, PERL_MAGIC_sv, "/", 0); |
| 607 | PL_rs = newSVsv (GvSV (irsgv)); |
607 | PL_rs = newSVsv (GvSV (irsgv)); |
| 608 | |
608 | |
| 609 | { |
609 | { |
| 610 | IO *io = newIO (); |
610 | IO *io = newIO (); |
|
|
611 | PL_defoutgv = newGVgen ("Coro"); |
| 611 | GvIOp(PL_defoutgv) = io; |
612 | GvIOp(PL_defoutgv) = io; |
| 612 | IoTYPE (io) = IoTYPE_WRONLY; |
613 | IoTYPE (io) = IoTYPE_WRONLY; |
| 613 | IoOFP (io) = IoIFP (io) = PerlIO_stdout (); |
614 | IoOFP (io) = IoIFP (io) = PerlIO_stdout (); |
| 614 | IoFLAGS (io) |= IOf_FLUSH; |
615 | IoFLAGS (io) |= IOf_FLUSH; |
| 615 | } |
616 | } |
| … | |
… | |
| 654 | } |
655 | } |
| 655 | |
656 | |
| 656 | SvREFCNT_dec (GvSV (PL_defgv)); |
657 | SvREFCNT_dec (GvSV (PL_defgv)); |
| 657 | SvREFCNT_dec (GvAV (PL_defgv)); |
658 | SvREFCNT_dec (GvAV (PL_defgv)); |
| 658 | SvREFCNT_dec (GvSV (PL_errgv)); |
659 | SvREFCNT_dec (GvSV (PL_errgv)); |
| 659 | SvREFCNT_dec (GvIOp(PL_defoutgv)); |
660 | SvREFCNT_dec (PL_defoutgv); |
| 660 | SvREFCNT_dec (PL_rs); |
661 | SvREFCNT_dec (PL_rs); |
| 661 | SvREFCNT_dec (GvSV (irsgv)); |
662 | SvREFCNT_dec (GvSV (irsgv)); |
| 662 | |
663 | |
| 663 | coro_destroy_stacks (aTHX); |
664 | coro_destroy_stacks (aTHX); |
| 664 | } |
665 | } |
