This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Re: [PATCH] Re: Not OK: perl 5.00553 on OPENSTEP-Mach 4_1
[perl5.git] / malloc.c
index 5d795e4..79122fd 100644 (file)
--- 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;