Skip site navigation (1)Skip section navigation (2)
Date:      Wed, 13 Mar 2002 18:39:43 -0500
From:      parv <parv_@yahoo.com>
To:        "Raistlin A. Majere" <raistlin@preston.pinemeadowgolf.com>
Cc:        freebsd-questions@FreeBSD.ORG, f-ports <freebsd-ports@freebsd.org>
Subject:   Re: slow perl string concats on FreeBSD 4.5
Message-ID:  <20020313233943.GA56194@moo.holy.cow>

next in thread | raw e-mail | index | archive | help
i lost the last message in which raistlin a. m. resolved the problem
by using perl supplied malloc.  so for context see...

http://groups.google.com/groups?hl=en&selm=3C8F3F2F.D6B46631%40e-raist.com.lucky.freebsd.questions


i can only say that that worked here too.  previously the
script was producing times around 52-57 seconds (~14000 page
faults), now it finishes in 6-7 seconds (~250 page fault)...

... freebsd malloc, vmstat -w 2...

 procs      memory      page                    disks     faults      cpu
 r b w     avm    fre  flt  re  pi  po  fr  sr ad0 md0   in   sy  cs us sy id
 1 0 0  116872  24408   57   0   0   0  47   7   0   0  245  690  72  2  1 98
 1 0 0  118872  22408 10368   0   0   0 10116   0   0   0  231  201  65 82 18  0
 1 0 0  107256  23376 11566   0   0   0 11709   0   0   0  229  198  67 78 22  0
 1 0 0  109900  20736 12411   0   0   0 12103   0   0   0  229  173  65 79 21  0
 1 0 0  107988  22652 12749   0   0   0 13008   0   0   0  229  180  65 75 25  0

...perl supplied malloc...

 procs      memory      page                    disks     faults      cpu
 r b w     avm    fre  flt  re  pi  po  fr  sr ad0 md0   in   sy  cs us sy id
 0 0 0  114828  25548   57   0   0   0  47   7   0   0  245  690  72  2  1 98
 0 0 0  114828  25548    3   0   0   0   0   0  16   0  258 1481 349  9  1 90
 1 0 0  118088  24280  175   0   0   0   9   0  24   0  266 1687 408 61  2 37
 1 0 0  109112  22148  268   0   0   0   0   0   0   0  229  182  76 100  0  0
 1 0 0  113584  20024  267   0   0   0   0   0   0   0  229  143  63 100  0  0
 0 0 0  104180  25548  191   0   0   0 870   0   0   0  230  244  76 67  1 32

...i built perl from the ports after editing work/perl-5.6.1/Configure.
keep the configure options as they are and apply the patch (Wrong Thing
To Do) to avoid answering questions & still use perl supplied malloc.


  - parv


# diff -u work/perl-5.6.1/Configure Configure 
--- work/perl-5.6.1/Configure   Sun Mar 18 22:03:33 2001
+++ Configure   Wed Mar 13 18:30:36 2002
@@ -5886,11 +5886,11 @@
 echo " "
 case "$usemymalloc" in
 ''|[yY]*|true|$define) dflt='y' ;;
-*)     dflt='n' ;;
+*)     dflt='y' ;;
 esac
 rp="Do you wish to attempt to use the malloc that comes with $package?"
 . ./myread
-usemymalloc="$ans"
+usemymalloc="y"
 case "$ans" in
 y*|true)
        usemymalloc='y'


-- 
 

To Unsubscribe: send mail to majordomo@FreeBSD.org
with "unsubscribe freebsd-questions" in the body of the message




Want to link to this message? Use this URL: <https://mail-archive.FreeBSD.org/cgi/mid.cgi?20020313233943.GA56194>