From: Dan Kogai <dankogai@dan.co.jp>
Date: Mon, 16 Jun 2003 01:48:49 +0000 (+0900)
Subject: Start using Perl malloc in FreeBSD since the system malloc
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=c23d2014b1a223f2595b3a2dcd8277fab2a0bb38;p=p5sagit%2Fp5-mst-13.2.git

Start using Perl malloc in FreeBSD since the system malloc
is reaaally slooow for Perl.

Subject: FreeBSD 5.1 vs. -Uusemymalloc
Message-Id: <3CE9B94D-9F51-11D7-AF50-000393AE4244@dan.co.jp>

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

diff --git a/hints/freebsd.sh b/hints/freebsd.sh
index 937df2a..5818097 100644
--- a/hints/freebsd.sh
+++ b/hints/freebsd.sh
@@ -92,10 +92,17 @@ case "$osvers" in
 	d_setegid='undef'
 	d_seteuid='undef'
 	;;
+4.*)	# In FreeBSD 4 and 5 the system malloc is performance-wise
+	# VERY bad for Perl-- we are talking of differences of not
+	# one, but TWO magnitudes.
+	usemymalloc=y
+	;;
+5.*)	usemymalloc=y
+	;;
 *)	usevfork='true'
 	case "$usemymalloc" in
-	    "") usemymalloc='n'
-	        ;;
+	"") usemymalloc='y'
+	    ;;
 	esac
 	libswanted=`echo $libswanted | sed 's/ malloc / /'`
 	;;
@@ -250,7 +257,7 @@ EOM
 
 	# Even with the malloc mutexes the Perl malloc does not
 	# seem to be threadsafe in FreeBSD?
-	usemymalloc=n
+	usemymalloc=y
 
 esac
 EOCBU