This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
adjust a Perl_malloc() flag for NeXT
authorHans Mulder <hansmu@xs4all.nl>
Tue, 23 Feb 1999 00:26:25 +0000 (01:26 +0100)
committerGurusamy Sarathy <gsar@cpan.org>
Wed, 24 Feb 1999 05:28:06 +0000 (05:28 +0000)
Message-Id: <9902222329.AA17516@icgned.icgroup.nl>
Subject: [PATCH for _55] MUTEX_INIT_CALLS_MALLOC no longer necessary

p4raw-id: //depot/perl@3020

perl.h

diff --git a/perl.h b/perl.h
index 42505f0..94fd478 100644 (file)
--- a/perl.h
+++ b/perl.h
@@ -1380,7 +1380,7 @@ typedef I32 (*filter_t) _((int, SV *, int));
 #      else
 #        ifdef I_MACH_CTHREADS
 #          include <mach/cthreads.h>
-#          ifdef NeXT
+#          if defined(__NeXT__) && defined(PERL_POLLUTE_MALLOC)
 #            define MUTEX_INIT_CALLS_MALLOC
 #          endif
 typedef cthread_t      perl_os_thread;