From: Hans Mulder <hansmu@xs4all.nl>
Date: Mon, 6 Jul 1998 02:11:32 +0000 (+0200)
Subject: corrupt malloc ptr on NeXT
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=06b3afcdfc1f3e17cec01aa39ec73f3f3165a28e;p=p5sagit%2Fp5-mst-13.2.git

corrupt malloc ptr on NeXT

	Message-Id: <9807060021.AA29027@icgned.icgroup.nl>

p4raw-id: //depot/perl@1333
---

diff --git a/malloc.c b/malloc.c
index a12f768..377bc21 100644
--- a/malloc.c
+++ b/malloc.c
@@ -735,7 +735,7 @@ malloc(register size_t nbytes)
 			      (long)size));
 
 	/* remove from linked list */
-#ifdef RCHECK
+#if defined(RCHECK) && !defined(USE_PERL_SBRK)
 	if (*((int*)p) & (sizeof(union overhead) - 1))
 	    PerlIO_printf(PerlIO_stderr(), "Corrupt malloc ptr 0x%lx at 0x%lx\n",
 		(unsigned long)*((int*)p),(unsigned long)p);