| … | |
… | |
| 27 | #endif |
27 | #endif |
| 28 | |
28 | |
| 29 | /* 5.10.0 */ |
29 | /* 5.10.0 */ |
| 30 | #ifndef SvREFCNT_inc_NN |
30 | #ifndef SvREFCNT_inc_NN |
| 31 | # define SvREFCNT_inc_NN(sv) SvREFCNT_inc (sv) |
31 | # define SvREFCNT_inc_NN(sv) SvREFCNT_inc (sv) |
|
|
32 | #endif |
|
|
33 | |
|
|
34 | /* 5.6.x */ |
|
|
35 | #ifndef SvRV_set |
|
|
36 | # define SvRV_set(a,b) SvRV ((a)) = (b) |
| 32 | #endif |
37 | #endif |
| 33 | |
38 | |
| 34 | #if __GNUC__ >= 3 |
39 | #if __GNUC__ >= 3 |
| 35 | # define expect(expr,value) __builtin_expect ((expr),(value)) |
40 | # define expect(expr,value) __builtin_expect ((expr),(value)) |
| 36 | #else |
41 | #else |
| … | |
… | |
| 258 | if (expect_false (sv_events_cache)) |
263 | if (expect_false (sv_events_cache)) |
| 259 | SvREFCNT_dec (sv_events); |
264 | SvREFCNT_dec (sv_events); |
| 260 | else |
265 | else |
| 261 | sv_events_cache = sv_events; |
266 | sv_events_cache = sv_events; |
| 262 | |
267 | |
| 263 | if (SvTRUE (ERRSV)) |
268 | if (expect_false (SvTRUE (ERRSV))) |
| 264 | { |
269 | { |
| 265 | SPAGAIN; |
270 | SPAGAIN; |
| 266 | PUSHMARK (SP); |
271 | PUSHMARK (SP); |
| 267 | PUTBACK; |
272 | PUTBACK; |
| 268 | call_sv (get_sv ("EV::DIED", 1), G_DISCARD | G_VOID | G_EVAL | G_KEEPERR); |
273 | call_sv (get_sv ("EV::DIED", 1), G_DISCARD | G_VOID | G_EVAL | G_KEEPERR); |
