X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=embed.fnc;h=b54969d3cb16d0c4a8f3daf6c29d98e6960c859a;hb=1a6a845317ff5e6bc844195898061e5a9910928d;hp=4b37eac6e48f1f2892161a8c73f993f10d0b3da6;hpb=eb86f8b30b3c669d547a1d9008e5860ab483ae2d;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/embed.fnc b/embed.fnc
index 4b37eac..b54969d 100644
--- a/embed.fnc
+++ b/embed.fnc
@@ -11,7 +11,7 @@
 :	d		function has documentation with its source
 :	s		static function, should have an S_ prefix in
 :			source file; for macros (m), suffix the usage
-:			example	with a semicolon
+:			example with a semicolon
 :	n		has no implicit interpreter/thread context argument
 :	p		function has a Perl_ prefix
 :	f		function takes printf style format string, varargs
@@ -28,6 +28,7 @@
 :	R		Return value must not be ignored.
 :	P		pure function: no effects except the return value;
 :			return value depends only on parms and/or globals
+: (see also L<perlguts/Internal Functions> for those flags.)
 :
 : Pointer parameters that must not be passed NULLs should be prefixed with NN.
 :
@@ -1303,6 +1304,10 @@ s	|SV*	|save_scalar_at	|NN SV **sptr
 po	|void	|sv_add_backref	|NN SV *tsv|NN SV *sv
 #endif
 
+#if defined(PERL_IN_HV_C) || defined(PERL_IN_MG_C) || defined(PERL_IN_SV_C) || defined(PERL_DECL_PROT)
+poM	|int	|sv_kill_backrefs	|NN SV *sv|NN AV *av
+#endif
+
 #if defined(PERL_IN_SV_C) || defined(PERL_DECL_PROT)
 nsR	|char *	|uiv_2buf	|NN char *buf|IV iv|UV uv|int is_uv|NN char **peob
 s	|void	|sv_unglob	|NN SV* sv
@@ -1499,6 +1504,10 @@ ApoR	|HE**	|hv_eiter_p	|NN HV* hv
 Apo	|void	|hv_riter_set	|NN HV* hv|I32 riter
 Apo	|void	|hv_eiter_set	|NN HV* hv|NULLOK HE* eiter
 Ap	|void	|hv_name_set	|NN HV* hv|NULLOK const char *name|I32 len|int flags
+poM	|AV**	|hv_backreferences_p	|NN HV* hv
+#if defined(PERL_IN_DUMP_C) || defined(PERL_IN_HV_C) || defined(PERL_IN_SV_C) || defined(PERL_DECL_PROT)
+poM	|void	|hv_kill_backrefs	|NN HV* hv
+#endif
 Apd	|void	|hv_clear_placeholders	|NN HV* hb
 ApoR	|I32*	|hv_placeholders_p	|NN HV* hv
 ApoR	|I32	|hv_placeholders_get	|NN HV* hv
@@ -1610,7 +1619,7 @@ Apnod	|int	|my_sprintf	|NN char *buffer|NN const char *pat|...
 px	|void	|my_clearenv
 
 #ifdef PERL_IMPLICIT_CONTEXT
-po	|void*	|my_cxt_init	|NN int *index|size_t size
+Apo	|void*	|my_cxt_init	|NN int *index|size_t size
 #endif