X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=embed.fnc;h=75d98319d62cb132519b4bbbadf3f95c4a7995ba;hb=9df442c23deb1b1ba2f163eb54deeb4fe82ea80c;hp=ce814e32f308e660adf97fa7fef61fab86f20266;hpb=570c4e91603ac3337464d8508243e4c088399778;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/embed.fnc b/embed.fnc
index ce814e3..75d9831 100644
--- a/embed.fnc
+++ b/embed.fnc
@@ -47,7 +47,7 @@ Anod	|int	|perl_parse	|PerlInterpreter* interp|XSINIT_t xsinit \
 				|int argc|char** argv|char** env
 Anp	|bool	|doing_taint	|int argc|char** argv|char** env
 #if defined(USE_ITHREADS)
-Anod	|PerlInterpreter*|perl_clone|PerlInterpreter* interp, UV flags
+Anod	|PerlInterpreter*|perl_clone|PerlInterpreter* interp|UV flags
 #  if defined(PERL_IMPLICIT_SYS)
 Ano	|PerlInterpreter*|perl_clone_using|PerlInterpreter *interp|UV flags \
 				|struct IPerlMem* m|struct IPerlMem* ms \
@@ -535,7 +535,7 @@ Ap	|OP*	|newWHILEOP	|I32 flags|I32 debuggable|LOOP* loop \
 
 Ap	|PERL_SI*|new_stackinfo|I32 stitems|I32 cxitems
 Ap	|char*	|scan_vstring	|char *vstr|SV *sv
-Apd	|char*	|scan_version	|char *vstr|SV *sv
+Apd	|char*	|scan_version	|char *vstr|SV *sv|bool qv
 Apd	|SV*	|new_version	|SV *ver
 Apd	|SV*	|upg_version	|SV *ver
 Apd	|SV*	|vnumify	|SV *vs
@@ -697,14 +697,16 @@ p	|void	|sub_crush_depth|CV* cv
 Apd	|bool	|sv_2bool	|SV* sv
 Apd	|CV*	|sv_2cv		|SV* sv|HV** st|GV** gvp|I32 lref
 Apd	|IO*	|sv_2io		|SV* sv
-Apd	|IV	|sv_2iv		|SV* sv
+Amb	|IV	|sv_2iv		|SV* sv
+Apd	|IV	|sv_2iv_flags	|SV* sv|I32 flags
 Apd	|SV*	|sv_2mortal	|SV* sv
 Apd	|NV	|sv_2nv		|SV* sv
 Amb	|char*	|sv_2pv		|SV* sv|STRLEN* lp
 Apd	|char*	|sv_2pvutf8	|SV* sv|STRLEN* lp
 Apd	|char*	|sv_2pvbyte	|SV* sv|STRLEN* lp
 Ap	|char*	|sv_pvn_nomg	|SV* sv|STRLEN* lp
-Apd	|UV	|sv_2uv		|SV* sv
+Amb	|UV	|sv_2uv		|SV* sv
+Apd	|UV	|sv_2uv_flags	|SV* sv|I32 flags
 Apd	|IV	|sv_iv		|SV* sv
 Apd	|UV	|sv_uv		|SV* sv
 Apd	|NV	|sv_nv		|SV* sv
@@ -851,9 +853,6 @@ p	|void	|watch		|char** addr
 Ap	|I32	|whichsig	|char* sig
 p	|void	|write_to_stderr|const char* message|int msglen
 p	|int	|yyerror	|char* s
-#ifdef USE_PURE_BISON
-p	|int	|yylex_r	|YYSTYPE *lvalp|int *lcharp
-#endif
 p	|int	|yylex
 p	|int	|yyparse
 p	|int	|yywarn		|char* s
@@ -1085,7 +1084,8 @@ s	|void*	|docatch_body
 s	|void*	|vdocatch_body	|va_list args
 #endif
 s	|OP*	|dofindlabel	|OP *o|char *label|OP **opstack|OP **oplimit
-s	|void	|doparseform	|SV *sv
+s	|OP*	|doparseform	|SV *sv
+sn	|bool	|num_overflow	|NV value|I32 fldsize|I32 frcsize
 s	|I32	|dopoptoeval	|I32 startingblock
 s	|I32	|dopoptolabel	|char *label
 s	|I32	|dopoptoloop	|I32 startingblock
@@ -1323,7 +1323,7 @@ Apd	|void	|sv_copypv	|SV* dsv|SV* ssv
 Ap	|char*	|my_atof2	|const char *s|NV* value
 Apn	|int	|my_socketpair	|int family|int type|int protocol|int fd[2]
 #ifdef PERL_COPY_ON_WRITE
-pMX	|SV*	|sv_setsv_cow	|SV* dsv|SV* ssv
+pMXE	|SV*	|sv_setsv_cow	|SV* dsv|SV* ssv
 #endif
 
 #if defined(USE_PERLIO) && !defined(USE_SFIO)
@@ -1394,12 +1394,13 @@ Ap	|void	|save_set_svflags|SV* sv|U32 mask|U32 val
 Apod	|void	|hv_assert	|HV* tb
 
 #if defined(PERL_IN_HV_C) || defined(PERL_DECL_PROT)
-sM	|SV*	|hv_delete_common|HV* tb|SV* key_sv|const char* key|I32 klen|I32 flags|U32 hash
-sM	|bool	|hv_exists_common|HV* tb|SV* key_sv|const char* key|I32 klen|U32 hash
-sM	|HE*	|hv_fetch_common|HV* tb|SV* key_sv|const char* key|I32 klen|int flags|int action|U32 hash
-sM	|HE*	|hv_store_common|HV* tb|SV* key_sv|const char* key|I32 klen|int flags|SV* val|U32 hash
+sM	|SV*	|hv_delete_common|HV* tb|SV* key_sv|const char* key|STRLEN klen|int k_flags|I32 d_flags|U32 hash
+sM	|HE*	|hv_fetch_common|HV* tb|SV* key_sv|const char* key|STRLEN klen|int flags|int action|SV* val|U32 hash
 #endif
 
 Apd	|void	|hv_clear_placeholders|HV* hb
 
+Apd	|SV*	|hv_scalar	|HV* hv|
+p	|SV*	|magic_scalarpack|HV* hv|MAGIC*	mg
+
 END_EXTERN_C