diff options
| author | H.Merijn Brand <h.m.brand@xs4all.nl> | 2002-09-23 20:33:12 +0200 |
|---|---|---|
| committer | hv <hv@crypt.org> | 2002-09-26 08:16:43 +0000 |
| commit | 7bab3ede7bf671f54f0d8f3d55d015d9c9882812 (patch) | |
| tree | c955efd9da330d34eed618bb2ab9ac7e8a9e6034 /sv.c | |
| parent | e6604a4dbe27f47e1c7f869847acedb8b382cb8f (diff) | |
| download | perl-7bab3ede7bf671f54f0d8f3d55d015d9c9882812.tar.gz | |
LEAKTEST is dead, RIP
Subject: Re: [perl #17197] SIGSEGV in perl 5.8.0 multithread build with -DLEAKTEST
From: "H.Merijn Brand" <h.m.brand@hccnet.nl>
Message-Id: <20020923182824.C7B6.H.M.BRAND@hccnet.nl>
p4raw-id: //depot/perl@17920
Diffstat (limited to 'sv.c')
| -rw-r--r-- | sv.c | 11 |
1 files changed, 3 insertions, 8 deletions
@@ -1126,13 +1126,8 @@ S_more_xpvbm(pTHX) xpvbm->xpv_pv = 0; } -#ifdef LEAKTEST -# define my_safemalloc(s) (void*)safexmalloc(717,s) -# define my_safefree(p) safexfree((char*)p) -#else -# define my_safemalloc(s) (void*)safemalloc(s) -# define my_safefree(p) safefree((char*)p) -#endif +#define my_safemalloc(s) (void*)safemalloc(s) +#define my_safefree(p) safefree((char*)p) #ifdef PURIFY @@ -1578,7 +1573,7 @@ Perl_sv_grow(pTHX_ register SV *sv, register STRLEN newlen) if (newlen > SvLEN(sv)) { /* need more room? */ if (SvLEN(sv) && s) { -#if defined(MYMALLOC) && !defined(LEAKTEST) +#ifdef MYMALLOC STRLEN l = malloced_size((void*)SvPVX(sv)); if (newlen <= l) { SvLEN_set(sv, l); |