Partially fix Win32 link following commit 88e1f1a

There is currently still a linker error about PL_keyword_plugin.

diff --git a/embed.fnc b/embed.fnc
index 47dfa42..204389e 100644 (file)
--- a/embed.fnc
+++ b/embed.fnc
@@ -745,7 +745,7 @@ pd  |PADOFFSET|pad_alloc    |I32 optype|U32 tmptype
 : Used in toke.c and perly.y
 p      |PADOFFSET|allocmy      |NN const char *const name
 : Used in op.c and toke.c
-pdR    |PADOFFSET|pad_findmy   |NN const char* name
+EXpdR  |PADOFFSET|pad_findmy   |NN const char* name
 Ap     |PADOFFSET|find_rundefsvoffset  |
 : Used in perly.y
 pR     |OP*    |oopsAV         |NN OP* o

diff --git a/embed.h b/embed.h
index d21dedd..9455afc 100644 (file)
--- a/embed.h
+++ b/embed.h
@@ -638,6 +638,8 @@
 #define package_version                Perl_package_version
 #define pad_alloc              Perl_pad_alloc
 #define allocmy                        Perl_allocmy
+#endif
+#if defined(PERL_CORE) || defined(PERL_EXT)
 #define pad_findmy             Perl_pad_findmy
 #endif
 #define find_rundefsvoffset    Perl_find_rundefsvoffset
@@ -3006,6 +3008,8 @@
 #define package_version(a)     Perl_package_version(aTHX_ a)
 #define pad_alloc(a,b)         Perl_pad_alloc(aTHX_ a,b)
 #define allocmy(a)             Perl_allocmy(aTHX_ a)
+#endif
+#if defined(PERL_CORE) || defined(PERL_EXT)
 #define pad_findmy(a)          Perl_pad_findmy(aTHX_ a)
 #endif
 #define find_rundefsvoffset()  Perl_find_rundefsvoffset(aTHX)

diff --git a/global.sym b/global.sym
index b554d88..4928017 100644 (file)
--- a/global.sym
+++ b/global.sym
@@ -363,6 +363,7 @@ Perl_vstringify
 Perl_vcmp
 Perl_ninstr
 Perl_op_free
+Perl_pad_findmy
 Perl_find_rundefsvoffset
 Perl_pad_sv
 Perl_reentrant_size