Retract #21132.

p4raw-id: //depot/perl@21140

diff --git a/makedef.pl b/makedef.pl
index 4ea12b3..cf681a7 100644 (file)
--- 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 (file)
--- 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