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 (file)
--- 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);