|
Lines 23-38
Link Here
|
| 23 |
# define na PL_na |
23 |
# define na PL_na |
| 24 |
#endif |
24 |
#endif |
| 25 |
|
25 |
|
| 26 |
#ifdef HAVE_WIN32_ASPERL |
|
|
| 27 |
/* pTHX is needed often now */ |
26 |
/* pTHX is needed often now */ |
| 28 |
# define PERL_INTERPRETER my_perl |
27 |
# define PERL_INTERPRETER my_perl |
| 29 |
# define PERL_BACK_XS_INIT_PARAMS pTHX |
28 |
# define PERL_BACK_XS_INIT_PARAMS pTHX |
| 30 |
# define PERL_BACK_BOOT_DYNALOADER_PARAMS pTHX, CV *cv |
29 |
# define PERL_BACK_BOOT_DYNALOADER_PARAMS pTHX, CV *cv |
| 31 |
#else |
|
|
| 32 |
# define PERL_INTERPRETER perl_interpreter |
| 33 |
# define PERL_BACK_XS_INIT_PARAMS void |
| 34 |
# define PERL_BACK_BOOT_DYNALOADER_PARAMS CV *cv |
| 35 |
#endif |
| 36 |
|
30 |
|
| 37 |
extern PerlInterpreter *PERL_INTERPRETER; |
31 |
extern PerlInterpreter *PERL_INTERPRETER; |
| 38 |
|
32 |
|
