From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Tue, 9 Sep 2003 14:25:51 +0000 (+0000)
Subject: Retract #21132.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=894ccb8c0c01965b9dd111999ee86def327e7c24;p=p5sagit%2Fp5-mst-13.2.git

Retract #21132.

p4raw-id: //depot/perl@21140
---

diff --git a/makedef.pl b/makedef.pl
index 4ea12b3..cf681a7 100644
--- a/makedef.pl
+++ b/makedef.pl
@@ -100,7 +100,9 @@ close(CFG);
 
 # perl.h logic duplication begins
 
-$define{PL_OP_SLAB_ALLOC} = 1;
+if ($define{PERL_IMPLICIT_SYS}) {
+    $define{PL_OP_SLAB_ALLOC} = 1;
+}
 
 if ($define{USE_ITHREADS}) {
     if (!$define{MULTIPLICITY}) {
diff --git a/perl.h b/perl.h
index 39a5a42..01458d9 100644
--- a/perl.h
+++ b/perl.h
@@ -44,8 +44,13 @@
  * repeated in makedef.pl, so be certain to update
  * both places when editing. */
 
-#ifndef PL_OP_SLAB_ALLOC
-#  define PL_OP_SLAB_ALLOC
+#ifdef PERL_IMPLICIT_SYS
+/* PERL_IMPLICIT_SYS implies PerlMemShared != PerlMem
+   so use slab allocator to avoid lots of MUTEX overhead
+ */
+#  ifndef PL_OP_SLAB_ALLOC
+#    define PL_OP_SLAB_ALLOC
+#  endif
 #endif
 
 #ifdef USE_ITHREADS