[Date Prev][Date Next] [Thread Prev][Thread Next] [Date Index][Thread Index][Top&Search][Original]
Re: eliminate discreet arenaroots
I ran latest patch (timestamped-today) thru perlbench.
Since this isnt intended as a 'speed patch', I dont need to explain them ;-)
[jimc@harpo perlbench-0.07]$ mroe bench-out-1
A) perl-5.009003
path = ../dev/arena5-b1-bld/perl
cc = cc
optimize = -O2
ccflags = -D_REENTRANT -D_GNU_SOURCE -DTHREADS_HAVE_PIDS
-fno-strict-aliasing -pipe -Wdeclaration-after-statement
-I/usr/local/include -D_LARGEFILE_SOURCE -D_FILE_OFFSET_BITS=64
-I/usr/include/gdbm
usemymalloc = n
B) perl-5.009003
path = ../dev/arena5-b1-bldnt/perl
cc = cc
optimize = -O2
ccflags = -fno-strict-aliasing -pipe
-Wdeclaration-after-statement -I/usr/local/include -D_LARGEFILE_SOURCE
-D_FILE_OFFSET_BITS=64 -I/usr/include/gdbm
usemymalloc = n
C) perl-5.009003
path = ../bleadperl/perl
cc = cc
optimize = -O2
ccflags = -D_REENTRANT -D_GNU_SOURCE -DTHREADS_HAVE_PIDS
-fno-strict-aliasing -pipe -Wdeclaration-after-statement
-I/usr/local/include -D_LARGEFILE_SOURCE -D_FILE_OFFSET_BITS=64
-I/usr/include/gdbm
usemymalloc = n
D) perl-5.009003
path = ../bleadperl-nothread/perl
cc = cc
optimize = -O2
ccflags = -fno-strict-aliasing -pipe
-Wdeclaration-after-statement -I/usr/local/include -D_LARGEFILE_SOURCE
-D_FILE_OFFSET_BITS=64 -I/usr/include/gdbm
usemymalloc = n
A B C D
---- ---- ---- ----
arith/mixed 100 108 91 107
arith/trig 100 105 97 109
array/copy 100 106 99 106
array/foreach 100 126 98 104
array/index 100 115 87 105
array/pop 100 110 101 108
array/shift 100 110 99 109
array/sort-num 100 106 100 106
array/sort 100 104 100 104
call/0arg 100 127 100 123
call/1arg 100 126 102 113
call/2arg 100 120 99 115
call/9arg 100 115 101 115
call/empty 100 130 99 136
call/fib 100 123 102 122
call/method 100 120 101 121
call/wantarray 100 117 99 112
hash/copy 100 107 101 107
hash/each 100 114 98 114
hash/foreach-sort 100 105 99 108
hash/foreach 100 115 99 115
hash/get 100 136 100 131
hash/set 100 108 97 101
loop/for-c 100 131 102 126
loop/for-range-const 100 110 90 113
loop/for-range 100 106 99 107
loop/getline 100 109 101 107
loop/while-my 100 123 99 123
loop/while 100 137 112 121
re/const 100 107 101 107
re/w 100 93 84 93
startup/fewmod 100 115 101 115
startup/lotsofsub 100 117 100 116
startup/noprog 100 113 100 115
string/base64 100 109 100 105
string/htmlparser 100 110 100 106
string/index-const 100 113 104 112
string/index-var 100 103 100 104
string/ipol 100 107 96 109
string/tr 100 102 102 105
AVERAGE 100 114 99 112
[jimc@harpo perlbench-0.07]$
Assuming that bigger is faster,
B > A => non-threaded is better (as expected)
A > C, B > D => my patch's simplifications gain something.
if bigger is slower, 1 or 2 points is in the noise :-)
thanks
jimc
- References to:
-
Jim Cromie <jim.cromie@gmail.com>
Nicholas Clark <nick@ccl4.org>
[Date Prev][Date Next] [Thread Prev][Thread Next] [Date Index][Thread Index][Top&Search][Original]