From c20eb1c0a472ce4ada764a8268fbc22d78a331e1 Mon Sep 17 00:00:00 2001 From: Steve Hay Date: Mon, 22 May 2006 15:18:33 +0000 Subject: [PATCH] Fix Win32 linker error See: http://www.xray.mpe.mpg.de/mailing-lists/perl5-porters/2006-05/msg00758.html p4raw-id: //depot/perl@28277 --- embed.fnc | 2 +- embed.h | 2 ++ global.sym | 1 + 3 files changed, 4 insertions(+), 1 deletion(-) 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 -- 2.7.4