This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
corrupt malloc ptr on NeXT
authorHans Mulder <hansmu@xs4all.nl>
Mon, 6 Jul 1998 02:11:32 +0000 (04:11 +0200)
committerGurusamy Sarathy <gsar@cpan.org>
Mon, 6 Jul 1998 03:22:52 +0000 (03:22 +0000)
Message-Id: <9807060021.AA29027@icgned.icgroup.nl>

p4raw-id: //depot/perl@1333

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