… | |
… | |
40 | # define PadlistMAX(pl) AvFILLp (pl) |
40 | # define PadlistMAX(pl) AvFILLp (pl) |
41 | # define PadlistNAMES(pl) (*PadlistARRAY (pl)) |
41 | # define PadlistNAMES(pl) (*PadlistARRAY (pl)) |
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 |
|
|
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 |
45 | #endif |
51 | #endif |
46 | |
52 | |
47 | #if defined(_WIN32) |
53 | #if defined(_WIN32) |
48 | # undef HAS_GETTIMEOFDAY |
54 | # undef HAS_GETTIMEOFDAY |
49 | # undef setjmp |
55 | # undef setjmp |