| … | |
… | |
| 79 | |
79 | |
| 80 | /* 5.8.8 */ |
80 | /* 5.8.8 */ |
| 81 | #ifndef GV_NOTQUAL |
81 | #ifndef GV_NOTQUAL |
| 82 | # define GV_NOTQUAL 0 |
82 | # define GV_NOTQUAL 0 |
| 83 | #endif |
83 | #endif |
|
|
84 | #ifndef newSV |
|
|
85 | # define newSV(l) NEWSV(0,l) |
|
|
86 | #endif |
| 84 | |
87 | |
| 85 | #if !__i386 && !__x86_64 && !__powerpc && !__m68k && !__alpha && !__mips && !__sparc64 |
88 | #if !__i386 && !__x86_64 && !__powerpc && !__m68k && !__alpha && !__mips && !__sparc64 |
| 86 | # undef CORO_STACKGUARD |
89 | # undef CORO_STACKGUARD |
| 87 | #endif |
90 | #endif |
| 88 | |
91 | |
| … | |
… | |
| 604 | PL_curpm = 0; |
607 | PL_curpm = 0; |
| 605 | PL_localizing = 0; |
608 | PL_localizing = 0; |
| 606 | PL_dirty = 0; |
609 | PL_dirty = 0; |
| 607 | PL_restartop = 0; |
610 | PL_restartop = 0; |
| 608 | |
611 | |
| 609 | GvSV (PL_defgv) = NEWSV (0, 0); |
612 | GvSV (PL_defgv) = newSV (0); |
| 610 | GvAV (PL_defgv) = coro->args; coro->args = 0; |
613 | GvAV (PL_defgv) = coro->args; coro->args = 0; |
| 611 | GvSV (PL_errgv) = NEWSV (0, 0); |
614 | GvSV (PL_errgv) = newSV (0); |
| 612 | GvSV (irsgv) = newSVpvn ("\n", 1); sv_magic (GvSV (irsgv), (SV *)irsgv, PERL_MAGIC_sv, "/", 0); |
615 | GvSV (irsgv) = newSVpvn ("\n", 1); sv_magic (GvSV (irsgv), (SV *)irsgv, PERL_MAGIC_sv, "/", 0); |
| 613 | PL_rs = newSVsv (GvSV (irsgv)); |
616 | PL_rs = newSVsv (GvSV (irsgv)); |
| 614 | PL_defoutgv = SvREFCNT_inc (stdoutgv); |
617 | PL_defoutgv = SvREFCNT_inc (stdoutgv); |
| 615 | |
618 | |
| 616 | { |
619 | { |
