From: Steve Hay <SteveHay@planit.com>
Date: Mon, 22 May 2006 15:18:33 +0000 (+0000)
Subject: Fix Win32 linker error
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=c20eb1c0a472ce4ada764a8268fbc22d78a331e1;p=p5sagit%2Fp5-mst-13.2.git

Fix Win32 linker error

See:
http://www.xray.mpe.mpg.de/mailing-lists/perl5-porters/2006-05/msg00758.html

p4raw-id: //depot/perl@28277
---

diff --git a/embed.fnc b/embed.fnc
index bc12ba1..02c7120 100644
--- a/embed.fnc
+++ b/embed.fnc
@@ -312,7 +312,7 @@ XEpoM	|SV *	|refcounted_he_fetch|NN const struct refcounted_he *chain \
 				|NULLOK SV *keysv|NULLOK const char *key \
 				|STRLEN klen, int flags, U32 hash
 dpoM	|void	|refcounted_he_free|NULLOK struct refcounted_he *he
-dpoM	|struct refcounted_he *|refcounted_he_new \
+XEdpoM	|struct refcounted_he *|refcounted_he_new \
 				|NULLOK struct refcounted_he *const parent \
 				|NULLOK SV *const key|NULLOK SV *const value
 Apd	|SV**	|hv_store	|NULLOK HV* tb|NULLOK const char* key|I32 klen|NULLOK SV* val \
diff --git a/embed.h b/embed.h
index df7750c..e6fa05e 100644
--- a/embed.h
+++ b/embed.h
@@ -2465,6 +2465,8 @@
 #endif
 #ifdef PERL_CORE
 #endif
+#if defined(PERL_CORE) || defined(PERL_EXT)
+#endif
 #define hv_store(a,b,c,d,e)	Perl_hv_store(aTHX_ a,b,c,d,e)
 #define hv_store_ent(a,b,c,d)	Perl_hv_store_ent(aTHX_ a,b,c,d)
 #define hv_store_flags(a,b,c,d,e,f)	Perl_hv_store_flags(aTHX_ a,b,c,d,e,f)
diff --git a/global.sym b/global.sym
index c779a04..e1ce974 100644
--- a/global.sym
+++ b/global.sym
@@ -165,6 +165,7 @@ Perl_hv_iterval
 Perl_hv_ksplit
 Perl_hv_magic
 Perl_refcounted_he_fetch
+Perl_refcounted_he_new
 Perl_hv_store
 Perl_hv_store_ent
 Perl_hv_store_flags