|
|
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 |
