fix memory leak on Windows (PL_sys_intern contents were never

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

diff --git a/embed.pl b/embed.pl
index 8a89103..d760576 100755 (executable)
--- 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: