This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Retract #21132.
authorJarkko Hietaniemi <jhi@iki.fi>
Tue, 9 Sep 2003 14:25:51 +0000 (14:25 +0000)
committerJarkko Hietaniemi <jhi@iki.fi>
Tue, 9 Sep 2003 14:25:51 +0000 (14:25 +0000)
p4raw-id: //depot/perl@21140

makedef.pl
perl.h

index 4ea12b3..cf681a7 100644 (file)
@@ -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
  * 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