diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 2000-07-04 04:37:00 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 2000-07-04 04:37:00 +0000 |
| commit | 6c644e7885bc20d759d8cbcb4abaa8f14113c03b (patch) | |
| tree | b06fea5a3d3af10fdc606d828bd9917dfbb7831e /embed.h | |
| parent | 612f20c37ac59506501c890e7f9285f551c793d2 (diff) | |
| download | perl-6c644e7885bc20d759d8cbcb4abaa8f14113c03b.tar.gz | |
fix memory leak on Windows (PL_sys_intern contents were never
freed)
p4raw-id: //depot/perl@6299
Diffstat (limited to 'embed.h')
| -rw-r--r-- | embed.h | 18 |
1 files changed, 8 insertions, 10 deletions
@@ -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 |