From: Steve Hay <SteveHay@planit.com>
Date: Fri, 6 Nov 2009 10:32:18 +0000 (+0000)
Subject: Partially fix Win32 link following commit 88e1f1a
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=406ca277873a56e20923a72ee65ea50159954a30;p=p5sagit%2Fp5-mst-13.2.git

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