Przemek:
>If GCC for OS2 does not give emulation layer for mmap functions then
>this code will not work for you. It can be updated to use native OS2
>API but it should be done by real OS2 user who knows well this system
>and some low level functions behavior and performance in different
>situations. Now do not enable HB_FM_DL_ALLOC it in OS2 builds.
OK, disabled
>BTW If possible please recompile Harbour (without HB_FM_DL_ALLOC of
>course) and check speedtst.prg in MT mode. I would like to see the
>speed difference after my last modification which enabled inlined
>assembler version of atomic reference counters incrementation and
>decrementation in OS2 builds.
Below are results of current Harbour under eComStation 1.2MR
gcc 3.3.5
set C_USR=-DHB_FM_STATISTICS_OFF
new warnings in set.c
Below are results of some tests:
a) memtst.prg
ST: Fail with hb_xrealloc error
same as before
MT: Does not fail
b) speedtst.prg
ST
total application time: 46.99
total real time: 46.99
MT
total application time: 67.05
total real time: 67.05
before:
total application time: 135.88
total real time: 135.88
ST keep same as previous, but MT fall from 135.88 to 67.05
50 % faster :-)
Do you expected more or less ?
c) mt\mttest01.prg - 07.prg
FAILED mttest05, mttest06
something appear/disappear flashing in screen
David Macias
../../set.c: In function `open_handle':
../../set.c:212: warning: passing arg 1 of `hb_strupr' discards
qualifiers from
pointer target type
../../../set.c: In function `open_handle':
../../../set.c:212: warning: passing arg 1 of `hb_strupr' discards
qualifiers fr
om pointer target type
AMD Athlon 2200+ 2.0GHz, 1 Gb RAM, gcc 3.3.5
a) memtst.prg
------------------------
[E:\harbour809mt\harbour\tests]memtst_st.exe
09/18/08 17:17:06 Harbour 1.1.0dev (Rev. 9445), OS/2 4.50
testing single large memory blocks allocation and freeing...
CPU time: 1.21 sec.
real time: 1.21 sec.
testing many large memory blocks allocation and freeing...
CPU time: 9.69 sec.
real time: 9.69 sec.
testing large memory block reallocation with intermediate allocations...
Warning!!! some compilers may badly fail here
Press any key to continue... 1000 2000 3000 4000
5000
6000 7000 8000 9000 10000 11000 12000
13000
14000 15000 16000 17000 18000 19000 20000
21000
22000 23000 24000 25000 26000 27000 28000
29000
30000 31000 32000 33000 34000 35000 36000
37000
38000 39000 40000 41000 42000 43000 44000
45000
46000 47000 48000 49000 50000 51000 52000
53000
54000 55000 56000 57000 58000 59000 60000
61000
62000 63000 64000
Unrecoverable error 9009: hb_xrealloc can't reallocate memory
Called from AADD(0)
Called from MAIN(67) in memtst.prg
------------------------
[E:\harbour809mt\harbour\tests]memtst_mt.exe
09/18/08 17:18:30 Harbour 1.1.0dev (Rev. 9445) (MT), OS/2 4.50
testing single large memory blocks allocation and freeing...
CPU time: 1.23 sec.
real time: 1.23 sec.
testing many large memory blocks allocation and freeing...
CPU time: 9.91 sec.
real time: 9.91 sec.
testing large memory block reallocation with intermediate allocations...
Warning!!! some compilers may badly fail here
Press any key to continue... 1000 2000 3000 4000
5000
6000 7000 8000 9000 10000 11000 12000
13000
14000 15000 16000 17000 18000 19000 20000
21000
22000 23000 24000 25000 26000 27000 28000
29000
30000 31000 32000 33000 34000 35000 36000
37000
38000 39000 40000 41000 42000 43000 44000
45000
46000 47000 48000 49000 50000 51000 52000
53000
54000 55000 56000 57000 58000 59000 60000
61000
62000 63000 64000 65000 66000 67000 68000
69000
70000 71000 72000 73000 74000 75000 76000
77000
78000 79000 80000 81000 82000 83000 84000
85000
86000 87000 88000 89000 90000 91000 92000
93000
94000 95000 96000 97000 98000 99000 100000
CPU time: 0.80 sec.
real time: 0.80 sec.
Press any key to continue...
------------------------
b) speedtst.prg
[E:\harbour809mt\harbour\tests]speedtst_mt.exe
Startup loop to increase CPU clock...
09/18/08 17:22:45 Harbour 1.1.0dev (Rev. 9445), OS/2 4.50
ARR_LEN = 16
N_LOOPS = 1000000
empty loops overhead = 0.17
CPU usage -> secondsCPU()
c:=L_C -> 0.00
n:=L_N -> 0.00
d:=L_D -> 0.21
c:=M_C -> 0.37
n:=M_N -> 0.00
d:=M_D -> 0.09
(sh) c:=F_C -> 0.50
(sh) n:=F_N -> 0.40
(sh) d:=F_D -> 0.23
(ex) c:=F_C -> 1.09
(ex) n:=F_N -> 0.34
(ex) d:=F_D -> 0.00
n:=o:GenCode -> 1.13
n:=o[8] -> 0.00
round(i/1000,2) -> 0.85
str(i/1000) -> 1.31
val(a3[i%ARR_LEN+1]) -> 0.88
dtos(j+i%10000-5000) -> 1.03
eval({||i%ARR_LEN}) -> 0.00
eval({|x|x%ARR_LEN},i) -> 0.20
eval({|x|f1(x)},i) -> 0.80
&('f1('+str(i)+')') -> 8.69
eval([&('{|x|f1(x)}')]) -> 0.68
j := valtype(a)+valtype(i) -> 0.87
j := str(i%100,2) $ a2[i%ARR_LEN+1] -> 1.73
j := val(a2[i%ARR_LEN+1]) -> 0.91
j := a2[i%ARR_LEN+1] == s -> 0.00
j := a2[i%ARR_LEN+1] = s -> 0.66
j := a2[i%ARR_LEN+1] >= s -> 0.62
j := a2[i%ARR_LEN+1] < s -> 0.61
aadd(aa,{i,j,s,a,a2,t,bc}) -> 2.31
f0() -> 0.25
f1(i) -> 0.37
f2(c[8]) -> 0.29
f2(c[40000]) -> 0.29
f2(@c[40000]) -> 0.28
f2(c[40000]); c2:=c -> 0.40
f2(@c[40000]); c2:=c -> 0.40
f3(a,a2,c,i,j,t,bc) -> 0.69
f2(a2) -> 0.30
s:=f4() -> 2.24
s:=f5() -> 0.00
ascan(a,i%ARR_LEN) -> 0.00
ascan(a2,c+chr(i%64+64)) -> 2.28
ascan(a,{|x|x==i%ARR_LEN}) -> 5.48
============================================================
total application time: 46.99
total real time: 46.99
------------------------
[E:\harbour809mt\harbour\tests]speedtst_mt.exe
Startup loop to increase CPU clock...
09/18/08 17:23:48 Harbour 1.1.0dev (Rev. 9445) (MT), OS/2 4.50
ARR_LEN = 16
N_LOOPS = 1000000
empty loops overhead = 0.23
CPU usage -> secondsCPU()
c:=L_C -> 0.16
n:=L_N -> 0.14
d:=L_D -> 0.14
c:=M_C -> 0.17
n:=M_N -> 0.15
d:=M_D -> 0.16
(sh) c:=F_C -> 0.53
(sh) n:=F_N -> 0.41
(sh) d:=F_D -> 0.25
(ex) c:=F_C -> 0.52
(ex) n:=F_N -> 0.40
(ex) d:=F_D -> 0.25
n:=o:GenCode -> 0.50
n:=o[8] -> 0.31
round(i/1000,2) -> 0.70
str(i/1000) -> 1.60
val(a3[i%ARR_LEN+1]) -> 1.24
dtos(j+i%10000-5000) -> 1.44
eval({||i%ARR_LEN}) -> 0.75
eval({|x|x%ARR_LEN},i) -> 0.80
eval({|x|f1(x)},i) -> 1.15
&('f1('+str(i)+')') -> 10.19
eval([&('{|x|f1(x)}')]) -> 1.18
j := valtype(a)+valtype(i) -> 1.33
j := str(i%100,2) $ a2[i%ARR_LEN+1] -> 2.34
j := val(a2[i%ARR_LEN+1]) -> 1.31
j := a2[i%ARR_LEN+1] == s -> 0.85
j := a2[i%ARR_LEN+1] = s -> 0.91
j := a2[i%ARR_LEN+1] >= s -> 0.93
j := a2[i%ARR_LEN+1] < s -> 0.90
aadd(aa,{i,j,s,a,a2,t,bc}) -> 4.23
f0() -> 0.40
f1(i) -> 0.58
f2(c[8]) -> 0.45
f2(c[40000]) -> 0.46
f2(@c[40000]) -> 0.46
f2(c[40000]); c2:=c -> 0.63
f2(@c[40000]); c2:=c -> 0.63
f3(a,a2,c,i,j,t,bc) -> 0.96
f2(a2) -> 0.47
s:=f4() -> 1.54
s:=f5() -> 1.08
ascan(a,i%ARR_LEN) -> 0.79
ascan(a2,c+chr(i%64+64)) -> 3.06
ascan(a,{|x|x==i%ARR_LEN}) -> 9.12
============================================================
total application time: 67.05
total real time: 67.05
------------------------
[E:\harbour809mt\harbour\tests\mt] mttest01.exe
Harbour 1.1.0dev (Rev. 9445)
join: .T.
result: Hello World!!! Hello World!!! Hello World!!!
static var type: B
12345.678
12346.678
------------------------
[E:\harbour809mt\harbour\tests\mt] mttest02.exe
Harbour 1.1.0dev (Rev. 9445)
Main start
Thread ID: 0x233ce94
===================
MThread begin
Parameters: A B C
tMtttMt
MThread QUIT
Thread ALWAYS section
MMMMMM
===================
Main QUIT
Main ALWAYS section
I'm EXIT procedure
------------------------
[E:\harbour809mt\harbour\tests\mt] mttest03.exe
Harbour 1.1.0dev (Rev. 9445)
Main start
Thread ID: 0x233ce94
===================
MThread begin
Parameters: A B C
tMttMttMttMtt
Main QUIT
Main ALWAYS section
Thread ALWAYS section
I'm EXIT procedure
------------------------
[E:\harbour809mt\harbour\tests\mt] mttest04.exe
Harbour 1.1.0dev (Rev. 9445)
Main start
Starting threads: <1><2><3><4><5>
Wait 5 seconds or hit any key...
Waiting for threads...
Threads joined
Sum of thread local counters: 228391
Protected item result.......: 228391 OK
Unprotected item result.....: 228391 *
* - can be different then local sum on real multi-CPU systems
End of main
------------------------
[E:\harbour809mt\harbour\tests\mt] mttest05.exe
Harbour 1.1.0dev (Rev. 9445)
Starting threads: <1><2><3><4><5>
Waiting for threads...
Threads joined
Sum of results: 30
should be: 5000500 ERROR
------------------------
[E:\harbour809mt\harbour\tests\mt] mttest06.exe
Harbour 1.1.0dev (Rev. 9445)
Starting threads: <1><2><3><4><5>
Waiting for threads...
Threads joined
Sum of results: 30
should be: 5000500 ERROR
------------------------
[E:\harbour809mt\harbour\tests\mt] mttest07.exe
Harbour 1.1.0dev (Rev. 9445)
Main start
Starting threads: <1><2><3><4><5>
Sending jobs...
Sending terminate values...<1><2><3><4><5>
Collecting results...
Waiting for threads...
Threads joined
OK, final sum: 16698333.33
End of main
------------------------
_______________________________________________
Harbour mailing list
Harbour@harbour-project.org
http://lists.harbour-project.org/mailman/listinfo/harbour
