X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=embed.pl;h=d7605761ee9a877df44f67fa12eb72d502809eb1;hb=6c644e7885bc20d759d8cbcb4abaa8f14113c03b;hp=8a8910338021d5c2583afd35db83e86b11351d7f;hpb=612f20c37ac59506501c890e7f9285f551c793d2;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/embed.pl b/embed.pl
index 8a89103..d760576 100755
--- a/embed.pl
+++ b/embed.pl
@@ -2155,17 +2155,16 @@ Ap	|GP*	|gp_dup		|GP* gp
 Ap	|MAGIC*	|mg_dup		|MAGIC* mg
 Ap	|SV*	|sv_dup		|SV* sstr
 #if defined(HAVE_INTERP_INTERN)
+Ap	|void	|sys_intern_clear
 Ap	|void	|sys_intern_dup	|struct interp_intern* src \
 				|struct interp_intern* dst
+Ap	|void	|sys_intern_init
 #endif
 Ap	|PTR_TBL_t*|ptr_table_new
 Ap	|void*	|ptr_table_fetch|PTR_TBL_t *tbl|void *sv
 Ap	|void	|ptr_table_store|PTR_TBL_t *tbl|void *oldsv|void *newsv
 Ap	|void	|ptr_table_split|PTR_TBL_t *tbl
 #endif
-#if defined(HAVE_INTERP_INTERN)
-Ap	|void	|sys_intern_init
-#endif
 
 #if defined(PERL_OBJECT)
 protected: