From: Steve Hay <SteveHay@planit.com>
Date: Mon, 4 Jul 2005 15:36:04 +0000 (+0000)
Subject: Perl_share_hek needs exporting for change 25070 on Win32
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=063497e10fc528b1992837d48410189d2aea4e71;p=p5sagit%2Fp5-mst-13.2.git

Perl_share_hek needs exporting for change 25070 on Win32

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

diff --git a/embed.fnc b/embed.fnc
index 6e709ef..f300dba 100644
--- a/embed.fnc
+++ b/embed.fnc
@@ -705,7 +705,7 @@ Ap	|char*	|screaminstr	|SV* bigsv|SV* littlesv|I32 start_shift \
 p	|I32	|setenv_getix	|const char* nam
 #endif
 p	|void	|setdefout	|GV* gv
-p	|HEK*	|share_hek	|const char* sv|I32 len|U32 hash
+Ap	|HEK*	|share_hek	|const char* sv|I32 len|U32 hash
 np	|Signal_t |sighandler	|int sig
 Anp	|Signal_t |csighandler	|int sig
 Ap	|SV**	|stack_grow	|NN SV** sp|NN SV**p|int n
diff --git a/embed.h b/embed.h
index f8800b4..c0d66b7 100644
--- a/embed.h
+++ b/embed.h
@@ -748,7 +748,9 @@
 #endif
 #ifdef PERL_CORE
 #define setdefout		Perl_setdefout
+#endif
 #define share_hek		Perl_share_hek
+#ifdef PERL_CORE
 #define sighandler		Perl_sighandler
 #endif
 #define csighandler		Perl_csighandler
@@ -2731,7 +2733,9 @@
 #endif
 #ifdef PERL_CORE
 #define setdefout(a)		Perl_setdefout(aTHX_ a)
+#endif
 #define share_hek(a,b,c)	Perl_share_hek(aTHX_ a,b,c)
+#ifdef PERL_CORE
 #define sighandler		Perl_sighandler
 #endif
 #define csighandler		Perl_csighandler
diff --git a/global.sym b/global.sym
index 1c5cb09..5fccbc5 100644
--- a/global.sym
+++ b/global.sym
@@ -428,6 +428,7 @@ Perl_scan_hex
 Perl_scan_num
 Perl_scan_oct
 Perl_screaminstr
+Perl_share_hek
 Perl_csighandler
 Perl_stack_grow
 Perl_start_subparse