Make Perl_seed public

Fixes Win32 linker error in List::Util introduced by change #26054
p4raw-link: @26054 on //depot/perl: 82f35e8b14e93ac697812d1b28d2e79e1ad82d84

p4raw-id: //depot/perl@26069

diff --git a/embed.fnc b/embed.fnc
index 5ea795f..1b37a51 100644 (file)
--- a/embed.fnc
+++ b/embed.fnc
@@ -887,7 +887,7 @@ p   |void   |vivify_defelem |NN SV* sv
 p      |void   |vivify_ref     |NN SV* sv|U32 to_what
 p      |I32    |wait4pid       |Pid_t pid|NN int* statusp|int flags
 p      |U32    |parse_unicode_opts|NN const char **popt
-p      |U32    |seed
+Ap     |U32    |seed
 pR     |UV     |get_hash_seed
 p      |void   |report_evil_fh |NULLOK const GV *gv|NULLOK const IO *io|I32 op
 pd     |void   |report_uninit  |NULLOK SV* uninit_sv

diff --git a/embed.h b/embed.h
index d15e9ab..3f3b668 100644 (file)
--- a/embed.h
+++ b/embed.h
@@ -908,7 +908,9 @@
 #define vivify_ref             Perl_vivify_ref
 #define wait4pid               Perl_wait4pid
 #define parse_unicode_opts     Perl_parse_unicode_opts
+#endif
 #define seed                   Perl_seed
+#ifdef PERL_CORE
 #define get_hash_seed          Perl_get_hash_seed
 #define report_evil_fh         Perl_report_evil_fh
 #define report_uninit          Perl_report_uninit
@@ -2902,7 +2904,9 @@
 #define vivify_ref(a,b)                Perl_vivify_ref(aTHX_ a,b)
 #define wait4pid(a,b,c)                Perl_wait4pid(aTHX_ a,b,c)
 #define parse_unicode_opts(a)  Perl_parse_unicode_opts(aTHX_ a)
+#endif
 #define seed()                 Perl_seed(aTHX)
+#ifdef PERL_CORE
 #define get_hash_seed()                Perl_get_hash_seed(aTHX)
 #define report_evil_fh(a,b,c)  Perl_report_evil_fh(aTHX_ a,b,c)
 #define report_uninit(a)       Perl_report_uninit(aTHX_ a)

diff --git a/global.sym b/global.sym
index d43ef45..1d86272 100644 (file)
--- a/global.sym
+++ b/global.sym
@@ -559,6 +559,7 @@ Perl_uvchr_to_utf8_flags
 Perl_uvuni_to_utf8_flags
 Perl_pv_uni_display
 Perl_sv_uni_display
+Perl_seed
 Perl_warn
 Perl_vwarn
 Perl_warner