From: H.Merijn Brand <h.m.brand@xs4all.nl>
Date: Thu, 13 Jun 2002 09:58:30 +0000 (+0200)
Subject: [ PATCH ] mymalloc on HP-UX
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=b11575486bfd20a8caa4a78b3ffbf747a1e95094;p=p5sagit%2Fp5-mst-13.2.git

[ PATCH ] mymalloc on HP-UX
From: "H.Merijn Brand" <h.m.brand@hccnet.nl>
Message-Id: <20020613095503.2BB2.H.M.BRAND@hccnet.nl>

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

diff --git a/hints/hpux.sh b/hints/hpux.sh
index 1cd190e..7170516 100644
--- a/hints/hpux.sh
+++ b/hints/hpux.sh
@@ -553,7 +553,26 @@ EOM
 EOCBU
 
 # The mysterious io_xs memory corruption in 11.00 32bit seems to get
-# fixed by not using Perl's malloc.  
+# fixed by not using Perl's malloc.  Flip side is performance loss.
+# So we want mymalloc for all situations possible
+usemymalloc='y'
+case "$usethreads" in
+    $define|true|[yY]*) usemymalloc='n' ;;
+    *)  case "$ccisgcc" in
+           $undef|false|[nN]*)
+               case "$use64bitint" in
+                   $undef|false|[nN]*)
+                       case "$ccflags" in
+                           *-DDEBUGGING*) ;;
+                           *) usemymalloc='n' ;;
+                           esac
+                       ;;
+                   esac
+               ;;
+           esac
+       ;;
+    esac
+
 usemymalloc='n'
 case "$useperlio" in
     $undef|false|[nN]*) usemymalloc='y' ;;