1 | #ifndef _WIN32 |
|
|
2 | /* most win32 perls are beyond fixing, requiring dTHX */ |
1 | /* most win32 perls are beyond fixing, requiring dTHX */ |
3 | /* even for ISO-C functions such as malloc. avoid! avoid! avoid! */ |
2 | /* even for ISO-C functions such as malloc. avoid! avoid! avoid! */ |
|
|
3 | /* and fial to define numerous symbols, but still overrwide them */ |
|
|
4 | /* with non-working versions (e.g. setjmp). */ |
|
|
5 | #ifdef _WIN32 |
|
|
6 | # define PERL_CORE 1 |
|
|
7 | #else |
4 | # define PERL_NO_GET_CONTEXT |
8 | # define PERL_NO_GET_CONTEXT |
5 | #endif |
9 | #endif |
6 | |
10 | |
7 | #include "EXTERN.h" |
11 | #include "EXTERN.h" |
8 | #include "perl.h" |
12 | #include "perl.h" |