Here are the results with latest speedtst.prg:
>hbmk2 speedtst.prg -shared -strip -mt -gc3
03/17/09 18:14:13 Windows XP 5.1.2600 Service Pack 3
Harbour 1.1.0dev (Rev. 10630) (MT) MinGW GNU C 4.3.2 (32-bit)
THREADS: 0
N_LOOPS: 1000000
[ T000: empty loop overhead ]...................................0.05
====================================================================
[ T001: x := L_C ]..............................................0.14
[ T002: x := L_N ]..............................................0.02
[ T003: x := L_D ]..............................................0.02
[ T004: x := S_C ]..............................................0.16
[ T005: x := S_N ]..............................................0.06
[ T006: x := S_D ]..............................................0.05
[ T007: x := M->M_C ]...........................................0.17
[ T008: x := M->M_N ]...........................................0.06
[ T009: x := M->M_D ]...........................................0.06
[ T010: x := M->P_C ]...........................................0.17
[ T011: x := M->P_N ]...........................................0.08
[ T012: x := M->P_D ]...........................................0.06
[ T013: x := F_C ]..............................................0.50
[ T014: x := F_N ]..............................................0.34
[ T015: x := F_D ]..............................................0.16
[ T016: x := o:Args ]...........................................0.31
[ T017: x := o[2] ].............................................0.22
[ T018: round( i / 1000, 2 ) ]..................................0.50
[ T019: str( i / 1000 ) ].......................................3.28
[ T020: val( s ) ]..............................................0.52
[ T021: val( a [ i % 16 + 1 ] ) ]...............................0.84
[ T022: dtos( d - i % 10000 ) ].................................0.86
[ T023: eval( { || i % 16 } ) ].................................1.39
[ T024: eval( bc := { || i % 16 } ) ]...........................0.50
[ T025: eval( { |x| x % 16 }, i ) ].............................0.89
[ T026: eval( bc := { |x| x % 16 }, i ) ].......................0.48
[ T027: eval( { |x| f1( x ) }, i ) ]............................0.94
[ T028: eval( bc := { |x| f1( x ) }, i ) ]......................0.53
[ T029: eval( bc := &("{ |x| f1( x ) }"), i ) ].................0.52
[ T030: x := &( "f1(" + str(i) + ")" ) ]........................9.45
[ T031: bc := &( "{|x|f1(x)}" ), eval( bc, i ) ]...............10.72
[ T032: x := valtype( x ) + valtype( i ) ].....................0.86
[ T033: x := strzero( i % 100, 2 ) $ a[ i % 16 + 1 ] ]..........2.67
[ T034: x := a[ i % 16 + 1 ] == s ].............................0.66
[ T035: x := a[ i % 16 + 1 ] = s ]..............................0.69
[ T036: x := a[ i % 16 + 1 ] >= s ].............................0.66
[ T037: x := a[ i % 16 + 1 ] <= s ].............................0.67
[ T038: x := a[ i % 16 + 1 ] < s ]..............................0.69
[ T039: x := a[ i % 16 + 1 ] > s ]..............................0.69
[ T040: ascan( a, i % 16 ) ]....................................0.55
[ T041: ascan( a, { |x| x == i % 16 } ) ].......................6.17
[ T042: iif( i%1000==0, a:={}, ) , aadd(a,{i,1,.T.,s,s2,a2 ]....2.27
[ T043: x := a ]................................................0.14
[ T044: x := {} ]...............................................0.58
[ T045: f0() ]..................................................0.14
[ T046: f1( i ) ]...............................................0.16
[ T047: f2( c[1...8] ) ]........................................0.27
[ T048: f2( c[1...40000] ) ]....................................0.27
[ T049: f2( @c[1...40000] ) ]...................................0.28
[ T050: f2( @c[1...40000] ), c2 := c ]..........................0.30
[ T051: f3( a, a2, s, i, s2, bc, i, n, x ) ]....................0.84
[ T052: f2( a ) ]...............................................0.28
[ T053: x := f4() ].............................................1.52
[ T054: x := f5() ].............................................0.67
[ T055: x := space(16) ]........................................0.55
[ T056: f_prv( c ) ]............................................1.20
====================================================================
[ total application time: ]....................................60.44
[ total real time: ]...........................................60.61
>hbmk2 speedtst.prg -strip -mt -gc3
03/17/09 18:15:30 Windows XP 5.1.2600 Service Pack 3
Harbour 1.1.0dev (Rev. 10630) (MT) MinGW GNU C 4.3.2 (32-bit)
THREADS: 0
N_LOOPS: 1000000
[ T000: empty loop overhead ]...................................0.05
====================================================================
[ T001: x := L_C ]..............................................0.13
[ T002: x := L_N ]..............................................0.03
[ T003: x := L_D ]..............................................0.02
[ T004: x := S_C ]..............................................0.16
[ T005: x := S_N ]..............................................0.03
[ T006: x := S_D ]..............................................0.05
[ T007: x := M->M_C ]...........................................0.16
[ T008: x := M->M_N ]...........................................0.06
[ T009: x := M->M_D ]...........................................0.05
[ T010: x := M->P_C ]...........................................0.17
[ T011: x := M->P_N ]...........................................0.06
[ T012: x := M->P_D ]...........................................0.06
[ T013: x := F_C ]..............................................0.48
[ T014: x := F_N ]..............................................0.34
[ T015: x := F_D ]..............................................0.14
[ T016: x := o:Args ]...........................................0.30
[ T017: x := o[2] ].............................................0.23
[ T018: round( i / 1000, 2 ) ]..................................0.52
[ T019: str( i / 1000 ) ].......................................3.38
[ T020: val( s ) ]..............................................0.48
[ T021: val( a [ i % 16 + 1 ] ) ]...............................0.81
[ T022: dtos( d - i % 10000 ) ].................................0.83
[ T023: eval( { || i % 16 } ) ].................................1.39
[ T024: eval( bc := { || i % 16 } ) ]...........................0.48
[ T025: eval( { |x| x % 16 }, i ) ].............................0.84
[ T026: eval( bc := { |x| x % 16 }, i ) ].......................0.45
[ T027: eval( { |x| f1( x ) }, i ) ]............................0.92
[ T028: eval( bc := { |x| f1( x ) }, i ) ]......................0.53
[ T029: eval( bc := &("{ |x| f1( x ) }"), i ) ].................0.52
[ T030: x := &( "f1(" + str(i) + ")" ) ]........................7.13
[ T031: bc := &( "{|x|f1(x)}" ), eval( bc, i ) ]................9.56
[ T032: x := valtype( x ) + valtype( i ) ].....................0.84
[ T033: x := strzero( i % 100, 2 ) $ a[ i % 16 + 1 ] ]..........2.69
[ T034: x := a[ i % 16 + 1 ] == s ].............................0.66
[ T035: x := a[ i % 16 + 1 ] = s ]..............................0.67
[ T036: x := a[ i % 16 + 1 ] >= s ].............................0.67
[ T037: x := a[ i % 16 + 1 ] <= s ].............................0.67
[ T038: x := a[ i % 16 + 1 ] < s ]..............................0.67
[ T039: x := a[ i % 16 + 1 ] > s ]..............................0.69
[ T040: ascan( a, i % 16 ) ]....................................0.56
[ T041: ascan( a, { |x| x == i % 16 } ) ].......................6.66
[ T042: iif( i%1000==0, a:={}, ) , aadd(a,{i,1,.T.,s,s2,a2 ]....2.27
[ T043: x := a ]................................................0.13
[ T044: x := {} ]...............................................0.56
[ T045: f0() ]..................................................0.09
[ T046: f1( i ) ]...............................................0.16
[ T047: f2( c[1...8] ) ]........................................0.27
[ T048: f2( c[1...40000] ) ]....................................0.25
[ T049: f2( @c[1...40000] ) ]...................................0.27
[ T050: f2( @c[1...40000] ), c2 := c ]..........................0.28
[ T051: f3( a, a2, s, i, s2, bc, i, n, x ) ]....................0.83
[ T052: f2( a ) ]...............................................0.27
[ T053: x := f4() ].............................................1.45
[ T054: x := f5() ].............................................0.66
[ T055: x := space(16) ]........................................0.55
[ T056: f_prv( c ) ]............................................1.19
====================================================================
[ total application time: ]....................................57.02
[ total real time: ]...........................................57.06
Brgds,
Viktor
_______________________________________________
Harbour mailing list
[email protected]
http://lists.harbour-project.org/mailman/listinfo/harbour
