fix memory leak on Windows (PL_sys_intern contents were never

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

diff --git a/embed.h b/embed.h
index 33ef720..301619e 100644 (file)
--- a/embed.h
+++ b/embed.h
@@ -825,16 +825,15 @@
 #define mg_dup                 Perl_mg_dup
 #define sv_dup                 Perl_sv_dup
 #if defined(HAVE_INTERP_INTERN)
+#define sys_intern_clear       Perl_sys_intern_clear
 #define sys_intern_dup         Perl_sys_intern_dup
+#define sys_intern_init                Perl_sys_intern_init
 #endif
 #define ptr_table_new          Perl_ptr_table_new
 #define ptr_table_fetch                Perl_ptr_table_fetch
 #define ptr_table_store                Perl_ptr_table_store
 #define ptr_table_split                Perl_ptr_table_split
 #endif
-#if defined(HAVE_INTERP_INTERN)
-#define sys_intern_init                Perl_sys_intern_init
-#endif
 #if defined(PERL_OBJECT)
 #else
 #endif
@@ -2266,16 +2265,15 @@
 #define mg_dup(a)              Perl_mg_dup(aTHX_ a)
 #define sv_dup(a)              Perl_sv_dup(aTHX_ a)
 #if defined(HAVE_INTERP_INTERN)
+#define sys_intern_clear()     Perl_sys_intern_clear(aTHX)
 #define sys_intern_dup(a,b)    Perl_sys_intern_dup(aTHX_ a,b)
+#define sys_intern_init()      Perl_sys_intern_init(aTHX)
 #endif
 #define ptr_table_new()                Perl_ptr_table_new(aTHX)
 #define ptr_table_fetch(a,b)   Perl_ptr_table_fetch(aTHX_ a,b)
 #define ptr_table_store(a,b,c) Perl_ptr_table_store(aTHX_ a,b,c)
 #define ptr_table_split(a)     Perl_ptr_table_split(aTHX_ a)
 #endif
-#if defined(HAVE_INTERP_INTERN)
-#define sys_intern_init()      Perl_sys_intern_init(aTHX)
-#endif
 #if defined(PERL_OBJECT)
 #else
 #endif
@@ -4443,8 +4441,12 @@
 #define Perl_sv_dup            CPerlObj::Perl_sv_dup
 #define sv_dup                 Perl_sv_dup
 #if defined(HAVE_INTERP_INTERN)
+#define Perl_sys_intern_clear  CPerlObj::Perl_sys_intern_clear
+#define sys_intern_clear       Perl_sys_intern_clear
 #define Perl_sys_intern_dup    CPerlObj::Perl_sys_intern_dup
 #define sys_intern_dup         Perl_sys_intern_dup
+#define Perl_sys_intern_init   CPerlObj::Perl_sys_intern_init
+#define sys_intern_init                Perl_sys_intern_init
 #endif
 #define Perl_ptr_table_new     CPerlObj::Perl_ptr_table_new
 #define ptr_table_new          Perl_ptr_table_new
@@ -4455,10 +4457,6 @@
 #define Perl_ptr_table_split   CPerlObj::Perl_ptr_table_split
 #define ptr_table_split                Perl_ptr_table_split
 #endif
-#if defined(HAVE_INTERP_INTERN)
-#define Perl_sys_intern_init   CPerlObj::Perl_sys_intern_init
-#define sys_intern_init                Perl_sys_intern_init
-#endif
 #if defined(PERL_OBJECT)
 #else
 #endif