diff options
| -rw-r--r-- | embed.fnc | 2 | ||||
| -rw-r--r-- | embed.h | 4 | ||||
| -rw-r--r-- | global.sym | 1 |
3 files changed, 6 insertions, 1 deletions
@@ -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 @@ -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 d43ef45433..1d862729e1 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 |