Created
February 25, 2014 01:51
-
-
Save mattn/9201108 to your computer and use it in GitHub Desktop.
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
diff -r 10d35c8b50e3 src/if_perl.xs | |
--- a/src/if_perl.xs Mon Feb 24 03:32:00 2014 +0100 | |
+++ b/src/if_perl.xs Tue Feb 25 10:50:58 2014 +0900 | |
@@ -138,6 +138,8 @@ | |
#endif | |
typedef int XSINIT_t; | |
typedef int XSUBADDR_t; | |
+#endif | |
+#ifndef USE_ITHREADS | |
typedef int perl_key; | |
#endif | |
@@ -264,7 +266,9 @@ | |
# define Perl_Iscopestack_ix_ptr dll_Perl_Iscopestack_ix_ptr | |
# define Perl_Iunitcheckav_ptr dll_Perl_Iunitcheckav_ptr | |
# if (PERL_REVISION == 5) && (PERL_VERSION >= 14) | |
-# define PL_thr_key *dll_PL_thr_key | |
+# if PERL_VERSION <= 18 | |
+# define PL_thr_key *dll_PL_thr_key | |
+# endif | |
# endif | |
/* | |
@@ -386,7 +390,9 @@ | |
#endif | |
#if (PERL_REVISION == 5) && (PERL_VERSION >= 14) | |
+# if PERL_VERSION <= 18 | |
static perl_key* dll_PL_thr_key; | |
+# endif | |
#else | |
static GV** (*Perl_Idefgv_ptr)(register PerlInterpreter*); | |
static GV** (*Perl_Ierrgv_ptr)(register PerlInterpreter*); | |
@@ -413,7 +419,6 @@ | |
#ifdef PERL5101_OR_LATER | |
{"Perl_croak_xs_usage", (PERL_PROC*)&Perl_croak_xs_usage}, | |
#endif | |
- {"Perl_croak_nocontext", (PERL_PROC*)&Perl_croak_nocontext}, | |
{"Perl_dowantarray", (PERL_PROC*)&Perl_dowantarray}, | |
{"Perl_free_tmps", (PERL_PROC*)&Perl_free_tmps}, | |
{"Perl_gv_stashpv", (PERL_PROC*)&Perl_gv_stashpv}, | |
@@ -505,7 +510,6 @@ | |
# endif | |
#endif | |
#if (PERL_REVISION == 5) && (PERL_VERSION >= 14) | |
- {"PL_thr_key", (PERL_PROC*)&dll_PL_thr_key}, | |
#else | |
{"Perl_Idefgv_ptr", (PERL_PROC*)&Perl_Idefgv_ptr}, | |
{"Perl_Ierrgv_ptr", (PERL_PROC*)&Perl_Ierrgv_ptr}, |
Sign up for free
to join this conversation on GitHub.
Already have an account?
Sign in to comment