diff options
| author | Nick Ing-Simmons <nik@tiuk.ti.com> | 2001-01-08 23:54:33 +0000 |
|---|---|---|
| committer | Nick Ing-Simmons <nik@tiuk.ti.com> | 2001-01-08 23:54:33 +0000 |
| commit | d460ef459c7692518f607c250b9843bea7e01dd6 (patch) | |
| tree | cd24ec8713445a650364342ffc6a12cadb0ba9a4 /embed.h | |
| parent | 372b2723c1b440727154f21dc614ca857f429e6c (diff) | |
| download | perl-d460ef459c7692518f607c250b9843bea7e01dd6.tar.gz | |
Fix "scalars leaked" bugs caused by overload magic
(Highlighted by Ilya's DESTROY optimization.)
p4raw-id: //depot/perlio@8371
Diffstat (limited to 'embed.h')
| -rw-r--r-- | embed.h | 4 |
1 files changed, 4 insertions, 0 deletions
@@ -343,6 +343,7 @@ #define magic_clearsig Perl_magic_clearsig #define magic_existspack Perl_magic_existspack #define magic_freeregexp Perl_magic_freeregexp +#define magic_freeovrld Perl_magic_freeovrld #define magic_get Perl_magic_get #define magic_getarylen Perl_magic_getarylen #define magic_getdefelem Perl_magic_getdefelem @@ -1818,6 +1819,7 @@ #define magic_clearsig(a,b) Perl_magic_clearsig(aTHX_ a,b) #define magic_existspack(a,b) Perl_magic_existspack(aTHX_ a,b) #define magic_freeregexp(a,b) Perl_magic_freeregexp(aTHX_ a,b) +#define magic_freeovrld(a,b) Perl_magic_freeovrld(aTHX_ a,b) #define magic_get(a,b) Perl_magic_get(aTHX_ a,b) #define magic_getarylen(a,b) Perl_magic_getarylen(aTHX_ a,b) #define magic_getdefelem(a,b) Perl_magic_getdefelem(aTHX_ a,b) @@ -3567,6 +3569,8 @@ #define magic_existspack Perl_magic_existspack #define Perl_magic_freeregexp CPerlObj::Perl_magic_freeregexp #define magic_freeregexp Perl_magic_freeregexp +#define Perl_magic_freeovrld CPerlObj::Perl_magic_freeovrld +#define magic_freeovrld Perl_magic_freeovrld #define Perl_magic_get CPerlObj::Perl_magic_get #define magic_get Perl_magic_get #define Perl_magic_getarylen CPerlObj::Perl_magic_getarylen |