Fix run/switches test on Win32

[perl5.git] / embed.fnc

diff --git a/embed.fnc b/embed.fnc
index 316cfe5..f08dfef 100644 (file)
--- a/embed.fnc
+++ b/embed.fnc
@@ -148,6 +148,9 @@ pM  |PERL_CONTEXT*  |create_eval_scope|U32 flags
 : croak()'s first parm can be NULL.  Otherwise, mod_perl breaks.
 Afprd  |void   |croak          |NULLOK const char* pat|...
 Apr    |void   |vcroak         |NULLOK const char* pat|NULLOK va_list* args
+Aprd   |void   |croak_xs_usage |NN const CV *const cv \
+                               |NN const char *const params
+
 #if defined(PERL_IMPLICIT_CONTEXT)
 Afnrp  |void   |croak_nocontext|NULLOK const char* pat|...
 Afnp   |OP*    |die_nocontext  |NN const char* pat|...
@@ -297,8 +300,11 @@ Ap |GV*    |gv_fetchfile_flags|NN const char *const name|const STRLEN len\
                                |const U32 flags
 Apd    |GV*    |gv_fetchmeth   |NULLOK HV* stash|NN const char* name|STRLEN len|I32 level
 Apd    |GV*    |gv_fetchmeth_autoload  |NULLOK HV* stash|NN const char* name|STRLEN len|I32 level
-Apdmb  |GV*    |gv_fetchmethod |NULLOK HV* stash|NN const char* name
-Apd    |GV*    |gv_fetchmethod_autoload|NULLOK HV* stash|NN const char* name|I32 autoload
+Apdmb  |GV*    |gv_fetchmethod |NN HV* stash|NN const char* name
+Apd    |GV*    |gv_fetchmethod_autoload|NN HV* stash|NN const char* name \
+                               |I32 autoload
+ApdM   |GV*    |gv_fetchmethod_flags|NN HV* stash|NN const char* name \
+                               |U32 flags
 Ap     |GV*    |gv_fetchpv     |NN const char *nambeg|I32 add|const svtype sv_type
 Ap     |void   |gv_fullname    |NN SV* sv|NN const GV* gv
 Apmb   |void   |gv_fullname3   |NN SV* sv|NN const GV* gv|NULLOK const char* prefix
@@ -344,6 +350,14 @@ dpoM       |void   |refcounted_he_free|NULLOK struct refcounted_he *he
 XEdpoM |struct refcounted_he *|refcounted_he_new \
                                |NULLOK struct refcounted_he *const parent \
                                |NULLOK SV *const key|NULLOK SV *const value
+#if defined(PERL_IN_HV_C) || defined(PERL_DECL_PROT)
+s      |struct refcounted_he * |refcounted_he_new_common \
+                               |NULLOK struct refcounted_he *const parent \
+                               |NN const char *const key_p \
+                               |const STRLEN key_len|const char flags \
+                               |char value_type|NN const void *value \
+                               |const STRLEN value_len
+#endif
 Abmd   |SV**   |hv_store       |NULLOK HV *hv|NULLOK const char *key \
                                |I32 klen|NULLOK SV *val|U32 hash
 Abmd   |HE*    |hv_store_ent   |NULLOK HV *hv|NULLOK SV *key|NULLOK SV *val\
@@ -514,7 +528,7 @@ Apd |int    |mg_set         |NN SV* sv
 Ap     |I32    |mg_size        |NN SV* sv
 Ap     |void   |mini_mktime    |NN struct tm *ptm
 EXp    |OP*    |mod            |NULLOK OP* o|I32 type
-p      |int    |mode_from_discipline|NULLOK SV* discp
+p      |int    |mode_from_discipline|NULLOK const char* s|STRLEN len
 Ap     |const char*    |moreswitches   |NN const char* s
 p      |OP*    |my             |NN OP* o
 Ap     |NV     |my_atof        |NN const char *s
@@ -1979,8 +1993,10 @@ p        |void   |boot_core_mro
 Apon   |void   |sys_init       |NN int* argc|NN char*** argv
 Apon   |void   |sys_init3      |NN int* argc|NN char*** argv|NN char*** env
 Apon   |void   |sys_term
-ApM    |const char *|fetch_cop_label|NULLOK struct refcounted_he *const chain \
+ApoM   |const char *|fetch_cop_label|NULLOK struct refcounted_he *const chain \
                |NULLOK STRLEN *len|NULLOK U32 *flags
+xpoM   |struct refcounted_he *|store_cop_label \
+               |NULLOK struct refcounted_he *const chain|NN const char *label
 
 END_EXTERN_C
 /*