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 /proto.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 'proto.h')
| -rw-r--r-- | proto.h | 5 |
1 files changed, 2 insertions, 3 deletions
@@ -933,16 +933,15 @@ PERL_CALLCONV GP* Perl_gp_dup(pTHX_ GP* gp); PERL_CALLCONV MAGIC* Perl_mg_dup(pTHX_ MAGIC* mg); PERL_CALLCONV SV* Perl_sv_dup(pTHX_ SV* sstr); #if defined(HAVE_INTERP_INTERN) +PERL_CALLCONV void Perl_sys_intern_clear(pTHX); PERL_CALLCONV void Perl_sys_intern_dup(pTHX_ struct interp_intern* src, struct interp_intern* dst); +PERL_CALLCONV void Perl_sys_intern_init(pTHX); #endif PERL_CALLCONV PTR_TBL_t* Perl_ptr_table_new(pTHX); PERL_CALLCONV void* Perl_ptr_table_fetch(pTHX_ PTR_TBL_t *tbl, void *sv); PERL_CALLCONV void Perl_ptr_table_store(pTHX_ PTR_TBL_t *tbl, void *oldsv, void *newsv); PERL_CALLCONV void Perl_ptr_table_split(pTHX_ PTR_TBL_t *tbl); #endif -#if defined(HAVE_INTERP_INTERN) -PERL_CALLCONV void Perl_sys_intern_init(pTHX); -#endif #if defined(PERL_OBJECT) protected: |