X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=embed.fnc;h=b32be403237ae9fa166809f4041ff3b4332963be;hb=86f5593612e0fa4d1eddfb78098731af1f9f4548;hp=fbca5f1cf5f4775282405b7d9abe0a36f6d4eeca;hpb=e33435896f177fccb609ddddaf85afbfdc7a4e5f;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/embed.fnc b/embed.fnc
index fbca5f1..b32be40 100644
--- a/embed.fnc
+++ b/embed.fnc
@@ -1303,6 +1303,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 +1503,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