summaryrefslogtreecommitdiff
path: root/av.c
diff options
context:
space:
mode:
authorH.Merijn Brand <h.m.brand@xs4all.nl>2002-09-23 20:33:12 +0200
committerhv <hv@crypt.org>2002-09-26 08:16:43 +0000
commit7bab3ede7bf671f54f0d8f3d55d015d9c9882812 (patch)
treec955efd9da330d34eed618bb2ab9ac7e8a9e6034 /av.c
parente6604a4dbe27f47e1c7f869847acedb8b382cb8f (diff)
downloadperl-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 'av.c')
-rw-r--r--av.c4
1 files changed, 2 insertions, 2 deletions
diff --git a/av.c b/av.c
index a1d62fbdcb..acc9963eec 100644
--- a/av.c
+++ b/av.c
@@ -105,7 +105,7 @@ Perl_av_extend(pTHX_ AV *av, I32 key)
IV itmp;
#endif
-#if defined(MYMALLOC) && !defined(LEAKTEST)
+#ifdef MYMALLOC
newmax = malloced_size((void*)AvALLOC(av))/sizeof(SV*) - 1;
if (key <= newmax)
@@ -134,7 +134,7 @@ Perl_av_extend(pTHX_ AV *av, I32 key)
Safefree(AvALLOC(av));
AvALLOC(av) = ary;
#endif
-#if defined(MYMALLOC) && !defined(LEAKTEST)
+#ifdef MYMALLOC
resized:
#endif
ary = AvALLOC(av) + AvMAX(av) + 1;