Change 26069 by [EMAIL PROTECTED] on 2005/11/10 08:41:53
Make Perl_seed public
Fixes Win32 linker error in List::Util introduced by change #26054
Affected files ...
... //depot/perl/embed.fnc#278 edit
... //depot/perl/embed.h#533 edit
... //depot/perl/global.sym#288 edit
Differences ...
==== //depot/perl/embed.fnc#278 (text) ====
Index: perl/embed.fnc
--- perl/embed.fnc#277~26028~ Mon Nov 7 02:24:54 2005
+++ perl/embed.fnc Thu Nov 10 00:41:53 2005
@@ -887,7 +887,7 @@
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
==== //depot/perl/embed.h#533 (text+w) ====
Index: perl/embed.h
--- perl/embed.h#532~26028~ Mon Nov 7 02:24:54 2005
+++ perl/embed.h Thu Nov 10 00:41:53 2005
@@ -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)
==== //depot/perl/global.sym#288 (text+w) ====
Index: perl/global.sym
--- perl/global.sym#287~25954~ Wed Nov 2 05:14:19 2005
+++ perl/global.sym Thu Nov 10 00:41:53 2005
@@ -559,6 +559,7 @@
Perl_uvuni_to_utf8_flags
Perl_pv_uni_display
Perl_sv_uni_display
+Perl_seed
Perl_warn
Perl_vwarn
Perl_warner
End of Patch.
