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 (file)
--- 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 (file)
--- 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 (file)
--- 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