On Tue, Sep 23, 2008 at 3:39 PM, Przemyslaw Czerpak <[EMAIL PROTECTED]> wrote:
> Please make speed tests for MT mode with different C compilers
> and different platforms.
Under Fedora 9, gcc version 4.3.0 20080428 (Red Hat 4.3.0-8) (GCC)
MT total real time: 21.06
ST total real time: 17.91
only 15% slower.
best regards,
Lorenzo
09/23/08 22:51:19 Harbour 1.1.0dev (Rev. 9483) (MT), Linux 2.6.26.3-29.fc9.i686
i686
ARR_LEN = 16
N_LOOPS = 1000000
empty loops overhead = 0.06
CPU usage -> secondsCPU()
c:=L_C -> 0.07
n:=L_N -> 0.03
d:=L_D -> 0.04
c:=M_C -> 0.08
n:=M_N -> 0.04
d:=M_D -> 0.04
(sh) c:=F_C -> 0.14
(sh) n:=F_N -> 0.17
(sh) d:=F_D -> 0.07
(ex) c:=F_C -> 0.14
(ex) n:=F_N -> 0.18
(ex) d:=F_D -> 0.07
n:=o:GenCode -> 0.16
n:=o[8] -> 0.12
round(i/1000,2) -> 0.21
str(i/1000) -> 0.46
val(a3[i%ARR_LEN+1]) -> 0.43
dtos(j+i%10000-5000) -> 0.37
eval({||i%ARR_LEN}) -> 0.23
eval({|x|x%ARR_LEN},i) -> 0.23
eval({|x|f1(x)},i) -> 0.33
&('f1('+str(i)+')') -> 3.06
eval([&('{|x|f1(x)}')]) -> 0.36
j := valtype(a)+valtype(i) -> 0.45
j := str(i%100,2) $ a2[i%ARR_LEN+1] -> 0.74
j := val(a2[i%ARR_LEN+1]) -> 0.48
j := a2[i%ARR_LEN+1] == s -> 0.32
j := a2[i%ARR_LEN+1] = s -> 0.35
j := a2[i%ARR_LEN+1] >= s -> 0.34
j := a2[i%ARR_LEN+1] < s -> 0.35
aadd(aa,{i,j,s,a,a2,t,bc}) -> 1.26
f0() -> 0.12
f1(i) -> 0.19
f2(c[8]) -> 0.18
f2(c[40000]) -> 0.17
f2(@c[40000]) -> 0.12
f2(c[40000]); c2:=c -> 0.25
f2(@c[40000]); c2:=c -> 0.19
f3(a,a2,c,i,j,t,bc) -> 0.46
f2(a2) -> 0.17
s:=f4() -> 0.73
s:=f5() -> 0.27
ascan(a,i%ARR_LEN) -> 0.29
ascan(a2,c+chr(i%64+64)) -> 0.95
ascan(a,{|x|x==i%ARR_LEN}) -> 2.93
============================================================
total application time: 21.05
total real time: 21.06
09/23/08 22:54:01 Harbour 1.1.0dev (Rev. 9483), Linux 2.6.26.3-29.fc9.i686 i686
ARR_LEN = 16
N_LOOPS = 1000000
empty loops overhead = 0.04
CPU usage -> secondsCPU()
c:=L_C -> 0.05
n:=L_N -> 0.04
d:=L_D -> 0.04
c:=M_C -> 0.05
n:=M_N -> 0.04
d:=M_D -> 0.05
(sh) c:=F_C -> 0.13
(sh) n:=F_N -> 0.18
(sh) d:=F_D -> 0.09
(ex) c:=F_C -> 0.14
(ex) n:=F_N -> 0.18
(ex) d:=F_D -> 0.09
n:=o:GenCode -> 0.14
n:=o[8] -> 0.10
round(i/1000,2) -> 0.21
str(i/1000) -> 0.44
val(a3[i%ARR_LEN+1]) -> 0.39
dtos(j+i%10000-5000) -> 0.33
eval({||i%ARR_LEN}) -> 0.19
eval({|x|x%ARR_LEN},i) -> 0.20
eval({|x|f1(x)},i) -> 0.31
&('f1('+str(i)+')') -> 2.72
eval([&('{|x|f1(x)}')]) -> 0.32
j := valtype(a)+valtype(i) -> 0.36
j := str(i%100,2) $ a2[i%ARR_LEN+1] -> 0.64
j := val(a2[i%ARR_LEN+1]) -> 0.47
j := a2[i%ARR_LEN+1] == s -> 0.28
j := a2[i%ARR_LEN+1] = s -> 0.31
j := a2[i%ARR_LEN+1] >= s -> 0.30
j := a2[i%ARR_LEN+1] < s -> 0.32
aadd(aa,{i,j,s,a,a2,t,bc}) -> 0.97
f0() -> 0.11
f1(i) -> 0.19
f2(c[8]) -> 0.12
f2(c[40000]) -> 0.13
f2(@c[40000]) -> 0.13
f2(c[40000]); c2:=c -> 0.18
f2(@c[40000]); c2:=c -> 0.18
f3(a,a2,c,i,j,t,bc) -> 0.32
f2(a2) -> 0.13
s:=f4() -> 0.68
s:=f5() -> 0.24
ascan(a,i%ARR_LEN) -> 0.27
ascan(a2,c+chr(i%64+64)) -> 0.90
ascan(a,{|x|x==i%ARR_LEN}) -> 2.45
============================================================
total application time: 17.91
total real time: 17.91
_______________________________________________
Harbour mailing list
Harbour@harbour-project.org
http://lists.harbour-project.org/mailman/listinfo/harbour
