assert that you aren't assigning to the NVX of an AV or HV

[p5sagit/p5-mst-13.2.git] / embed.fnc

diff --git a/embed.fnc b/embed.fnc
index 2ad5e07..0f9fa96 100644 (file)
--- a/embed.fnc
+++ b/embed.fnc
@@ -546,7 +546,7 @@ Apa |OP*    |newWHILEOP     |I32 flags|I32 debuggable|LOOP* loop \
                                |I32 has_my
 Apa    |PERL_SI*|new_stackinfo|I32 stitems|I32 cxitems
 Ap     |char*  |scan_vstring   |NN const char *vstr|NN SV *sv
-Apd    |char*  |scan_version   |NN const char *vstr|NN SV *sv|bool qv
+Apd    |const char*    |scan_version   |NN const char *vstr|NN SV *sv|bool qv
 Apd    |SV*    |new_version    |SV *ver
 Apd    |SV*    |upg_version    |SV *ver
 Apd    |SV*    |vnumify        |SV *vs
@@ -802,7 +802,7 @@ Apd |int    |sv_unmagic     |NN SV* sv|int type
 Apd    |void   |sv_unref       |NN SV* sv
 Apd    |void   |sv_unref_flags |NN SV* sv|U32 flags
 Apd    |void   |sv_untaint     |NN SV* sv
-Apd    |bool   |sv_upgrade     |NN SV* sv|U32 mt
+Apd    |void   |sv_upgrade     |NN SV* sv|U32 mt
 Apd    |void   |sv_usepvn      |NN SV* sv|char* ptr|STRLEN len
 Apd    |void   |sv_vcatpvfn    |NN SV* sv|NN const char* pat|STRLEN patlen \
                                |va_list* args|SV** svargs|I32 svmax \
@@ -997,8 +997,8 @@ sR  |HE*    |new_he
 s      |void   |del_he         |NN HE *p
 sR     |HEK*   |save_hek_flags |NN const char *str|I32 len|U32 hash|int flags
 s      |void   |hv_magic_check |NN HV *hv|NN bool *needs_copy|NN bool *needs_store
-s      |void   |unshare_hek_or_pvn|HEK* hek|const char* str|I32 len|U32 hash
-sR     |HE*    |share_hek_flags|const char* sv|I32 len|U32 hash|int flags
+s      |void   |unshare_hek_or_pvn|const HEK* hek|const char* str|I32 len|U32 hash
+sR     |HEK*   |share_hek_flags|const char* sv|I32 len|U32 hash|int flags
 rs     |void   |hv_notallowed  |int flags|NN const char *key|I32 klen|NN const char *msg
 s      |struct xpvhv_aux*|hv_auxinit|HV *hv
 #endif
@@ -1143,7 +1143,7 @@ sR        |SV*    |method_common  |NN SV* meth|U32* hashp
 
 #if defined(PERL_IN_PP_SYS_C) || defined(PERL_DECL_PROT)
 s      |OP*    |doform         |NN CV *cv|NN GV *gv|NN OP *retop
-sr     |int    |emulate_eaccess|NN const char* path|Mode_t mode
+s      |int    |emulate_eaccess|NN const char* path|Mode_t mode
 #  if !defined(HAS_MKDIR) || !defined(HAS_RMDIR)
 sR     |int    |dooneliner     |NN const char *cmd|NN const char *filename
 #  endif
@@ -1270,8 +1270,7 @@ s |bool   |utf8_mg_pos_init       |NN SV *sv|NN MAGIC **mgp \
                                |NN STRLEN **cachep|I32 i|I32 offsetp \
                                |NN const U8 *s|NN const U8 *start
 #if defined(PERL_OLD_COPY_ON_WRITE)
-sM     |void   |sv_release_COW |SV *sv|const char *pvx|STRLEN cur|STRLEN len \
-                               |U32 hash|SV *after
+sM     |void   |sv_release_COW |SV *sv|const char *pvx|STRLEN len|SV *after
 #endif
 #endif
 
@@ -1534,6 +1533,7 @@ Ap        |GV*    |gv_fetchsv|SV *name|I32 flags|I32 sv_type
 dpR    |bool   |is_gv_magical_sv|SV *name|U32 flags
 
 Apd    |char*  |savesvpv       |SV* sv
+ApR    |bool   |stashpv_hvname_match|NN const COP *cop|NN const HV *hv
 
 END_EXTERN_C
 /*