| … | |
… | |
| 72 | # ifndef IS_PADCONST |
72 | # ifndef IS_PADCONST |
| 73 | # define IS_PADCONST(v) 0 |
73 | # define IS_PADCONST(v) 0 |
| 74 | # endif |
74 | # endif |
| 75 | #endif |
75 | #endif |
| 76 | |
76 | |
|
|
77 | /* 5.8.8 */ |
|
|
78 | #ifndef GV_NOTQUAL |
|
|
79 | # define GV_NOTQUAL 0 |
|
|
80 | #endif |
|
|
81 | #ifndef newSV |
|
|
82 | # define newSV(l) NEWSV(0,l) |
|
|
83 | #endif |
|
|
84 | |
|
|
85 | /* 5.11 */ |
|
|
86 | #ifndef CxHASARGS |
|
|
87 | # define CxHASARGS(cx) (cx)->blk_sub.hasargs |
|
|
88 | #endif |
|
|
89 | |
| 77 | /* 5.8.7 */ |
90 | /* 5.8.7 */ |
| 78 | #ifndef SvRV_set |
91 | #ifndef SvRV_set |
| 79 | # define SvRV_set(s,v) SvRV(s) = (v) |
92 | # define SvRV_set(s,v) SvRV(s) = (v) |
| 80 | #endif |
|
|
| 81 | |
|
|
| 82 | /* 5.8.8 */ |
|
|
| 83 | #ifndef GV_NOTQUAL |
|
|
| 84 | # define GV_NOTQUAL 0 |
|
|
| 85 | #endif |
|
|
| 86 | #ifndef newSV |
|
|
| 87 | # define newSV(l) NEWSV(0,l) |
|
|
| 88 | #endif |
93 | #endif |
| 89 | |
94 | |
| 90 | #if !__i386 && !__x86_64 && !__powerpc && !__m68k && !__alpha && !__mips && !__sparc64 |
95 | #if !__i386 && !__x86_64 && !__powerpc && !__m68k && !__alpha && !__mips && !__sparc64 |
| 91 | # undef CORO_STACKGUARD |
96 | # undef CORO_STACKGUARD |
| 92 | #endif |
97 | #endif |
| … | |
… | |
| 895 | SAVETMPS; |
900 | SAVETMPS; |
| 896 | EXTEND (SP, 3); |
901 | EXTEND (SP, 3); |
| 897 | PUSHMARK (SP); |
902 | PUSHMARK (SP); |
| 898 | PUSHs (&PL_sv_yes); |
903 | PUSHs (&PL_sv_yes); |
| 899 | PUSHs (fullname); |
904 | PUSHs (fullname); |
| 900 | PUSHs (cx->blk_sub.hasargs ? sv_2mortal (newRV_inc ((SV *)cx->blk_sub.argarray)) : &PL_sv_undef); |
905 | PUSHs (CxHASARGS (cx) ? sv_2mortal (newRV_inc ((SV *)cx->blk_sub.argarray)) : &PL_sv_undef); |
| 901 | PUTBACK; |
906 | PUTBACK; |
| 902 | cb = hv_fetch ((HV *)SvRV (coro_current), "_trace_sub_cb", sizeof ("_trace_sub_cb") - 1, 0); |
907 | cb = hv_fetch ((HV *)SvRV (coro_current), "_trace_sub_cb", sizeof ("_trace_sub_cb") - 1, 0); |
| 903 | if (cb) call_sv (*cb, G_KEEPERR | G_EVAL | G_VOID | G_DISCARD); |
908 | if (cb) call_sv (*cb, G_KEEPERR | G_EVAL | G_VOID | G_DISCARD); |
| 904 | SPAGAIN; |
909 | SPAGAIN; |
| 905 | FREETMPS; |
910 | FREETMPS; |
