summaryrefslogtreecommitdiff
path: root/malloc.c
diff options
context:
space:
mode:
authorHans Mulder <hansmu@xs4all.nl>1998-07-06 04:11:32 +0200
committerGurusamy Sarathy <gsar@cpan.org>1998-07-06 03:22:52 +0000
commit06b3afcdfc1f3e17cec01aa39ec73f3f3165a28e (patch)
tree0b52d4b47ef4af0c607c232d5751ad722d630556 /malloc.c
parentdcbf900d7d1e3acbd42fd197ca43b0503d541efd (diff)
downloadperl-06b3afcdfc1f3e17cec01aa39ec73f3f3165a28e.tar.gz
corrupt malloc ptr on NeXT
Message-Id: <9807060021.AA29027@icgned.icgroup.nl> p4raw-id: //depot/perl@1333
Diffstat (limited to 'malloc.c')
-rw-r--r--malloc.c2
1 files changed, 1 insertions, 1 deletions
diff --git a/malloc.c b/malloc.c
index a12f768a98..377bc2143b 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);