From: Hans Mulder Date: Sun, 8 Nov 1998 22:20:23 +0000 (+0100) Subject: Re: [PATCH] Re: Not OK: perl 5.00553 on OPENSTEP-Mach 4_1 X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=772fe5b34da07b398a960329cf97602adf8d6a4a;p=p5sagit%2Fp5-mst-13.2.git Re: [PATCH] Re: Not OK: perl 5.00553 on OPENSTEP-Mach 4_1 To: Ilya Zakharevich Cc: gsar@engin.umich.edu (Gurusamy Sarathy), jhi@iki.fi, perl5-porters@perl.org (UNINSTALLED) Message-Id: <9811082119.AA11802@icgned.icgroup.nl> p4raw-id: //depot/cfgperl@2225 --- diff --git a/malloc.c b/malloc.c index 5d795e4..79122fd 100644 --- a/malloc.c +++ b/malloc.c @@ -571,10 +571,10 @@ static char bucket_of[] = # endif #ifdef I_MACH_CTHREADS -#undef MUTEX_LOCK -#define MUTEX_LOCK(m) STMT_START { if (*m) mutex_lock(*m); } STMT_END -#undef MUTEX_UNLOCK -#define MUTEX_UNLOCK(m) STMT_START { if (*m) mutex_unlock(*m); } STMT_END +# undef MUTEX_LOCK +# define MUTEX_LOCK(m) STMT_START { if (*m) mutex_lock(*m); } STMT_END +# undef MUTEX_UNLOCK +# define MUTEX_UNLOCK(m) STMT_START { if (*m) mutex_unlock(*m); } STMT_END #endif static char *emergency_buffer; diff --git a/perl.h b/perl.h index ba898c4..825f304 100644 --- a/perl.h +++ b/perl.h @@ -1372,6 +1372,9 @@ typedef I32 (*filter_t) _((int, SV *, int)); # else # ifdef I_MACH_CTHREADS # include +# ifdef NeXT +# define MUTEX_INIT_CALLS_MALLOC +# endif typedef cthread_t perl_os_thread; typedef mutex_t perl_mutex; typedef condition_t perl_cond; @@ -1816,7 +1819,7 @@ typedef Sighandler_t Sigsave_t; #endif #ifdef MYMALLOC -# ifdef I_MACH_CTHREADS +# ifdef MUTEX_INIT_CALLS_MALLOC # define MALLOC_INIT \ STMT_START { \ PL_malloc_mutex = NULL; \