|
|
1 | #ifndef _WIN32 |
|
|
2 | /* most win32 perls are beyond fixing, requiring dTHX */ |
|
|
3 | /* even for ISO-C functions such as malloc. avoid! avoid! avoid! */ |
1 | #define PERL_NO_GET_CONTEXT |
4 | # define PERL_NO_GET_CONTEXT |
|
|
5 | #endif |
2 | |
6 | |
3 | #include "EXTERN.h" |
7 | #include "EXTERN.h" |
4 | #include "perl.h" |
8 | #include "perl.h" |
5 | #include "XSUB.h" |
9 | #include "XSUB.h" |
6 | |
10 | |
… | |
… | |
10 | #include "perlmulticore.h" |
14 | #include "perlmulticore.h" |
11 | #include "schmorp.h" |
15 | #include "schmorp.h" |
12 | #include "xthread.h" |
16 | #include "xthread.h" |
13 | |
17 | |
14 | #ifdef _WIN32 |
18 | #ifdef _WIN32 |
15 | typedef char sigset_t; |
19 | #ifndef sigset_t |
16 | #define pthread_sigmask(mode,new,old) |
20 | #define sigset_t int |
|
|
21 | #endif |
17 | #endif |
22 | #endif |
18 | |
23 | |
19 | #ifndef SvREFCNT_dec_NN |
24 | #ifndef SvREFCNT_dec_NN |
20 | #define SvREFCNT_dec_NN(sv) SvREFCNT_dec (sv) |
25 | #define SvREFCNT_dec_NN(sv) SvREFCNT_dec (sv) |
21 | #endif |
26 | #endif |