| … | |
… | |
| 42 | # define PadARRAY AvARRAY |
42 | # define PadARRAY AvARRAY |
| 43 | # define PadMAX AvFILLp |
43 | # define PadMAX AvFILLp |
| 44 | # define newPADLIST(var) ((var) = newAV (), av_extend (var, 1)) |
44 | # define newPADLIST(var) ((var) = newAV (), av_extend (var, 1)) |
| 45 | #endif |
45 | #endif |
| 46 | |
46 | |
|
|
47 | /* 5.19.something has replaced SVt_BIND by SVt_INVLIST */ |
|
|
48 | /* we just alias it to SVt_IV, as that is sufficient for swap_sv for now */ |
|
|
49 | #if PERL_VERSION_ATLEAST(5,19,0) |
|
|
50 | # define SVt_BIND SVt_IV |
|
|
51 | #endif |
|
|
52 | |
| 47 | #if defined(_WIN32) |
53 | #if defined(_WIN32) |
| 48 | # undef HAS_GETTIMEOFDAY |
54 | # undef HAS_GETTIMEOFDAY |
| 49 | # undef setjmp |
55 | # undef setjmp |
| 50 | # undef longjmp |
56 | # undef longjmp |
| 51 | # undef _exit |
57 | # undef _exit |
| … | |
… | |
| 515 | PAD *newpad; |
521 | PAD *newpad; |
| 516 | PADOFFSET off = PadlistMAX (padlist) + 1; |
522 | PADOFFSET off = PadlistMAX (padlist) + 1; |
| 517 | |
523 | |
| 518 | #if NEWPADAPI |
524 | #if NEWPADAPI |
| 519 | |
525 | |
|
|
526 | /* if we had the original CvDEPTH, we might be able to steal the CvDEPTH+1 entry instead */ |
|
|
527 | /* 20131102194744.GA6705@schmorp.de, 20131102195825.2013.qmail@lists-nntp.develooper.com */ |
| 520 | while (!PadlistARRAY (padlist)[off - 1]) |
528 | while (!PadlistARRAY (padlist)[off - 1]) |
| 521 | --off; |
529 | --off; |
| 522 | |
530 | |
| 523 | Perl_pad_push (aTHX_ padlist, off); |
531 | Perl_pad_push (aTHX_ padlist, off); |
| 524 | |
532 | |
