From: Steve Hay <SteveHay@planit.com>
Date: Thu, 10 Nov 2005 08:41:53 +0000 (+0000)
Subject: Make Perl_seed public
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=0a87c45925ff377a5a12eedc88c116133919463d;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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
--- 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
--- 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