Attached xbase++ test.
Compiled same prg with: hbmk2 speedtst.prg.
exe generated, does nothing on run
HTH
Angel
[email protected] escribió:
Revision: 10630
http://harbour-project.svn.sourceforge.net/harbour-project/?rev=10630&view=rev
Author: druzus
Date: 2009-03-17 15:15:18 +0000 (Tue, 17 Mar 2009)
Log Message:
-----------
2009-03-17 16:14 UTC+0100 Przemyslaw Czerpak (druzus/at/priv.onet.pl)
* harbour/tests/speedtst.prg
+ added new tests of dynamic code blocks performance
* modified to compile by __XPP__ and __CLIP__ - now for single
thread only
Modified Paths:
--------------
trunk/harbour/ChangeLog
trunk/harbour/tests/speedtst.prg
This was sent by the SourceForge.net collaborative development platform, the
world's largest Open Source development site.
Intel Celeron CPU 560 @ 2.13GHz 1 MB RAM
03/17/2009 12:34:04 Windows XP 05.01 Build 02600 Service Pack 2
Xbase++ (R) Version 1.90 (MT)
THREADS: 0
N_LOOPS: 1000000
[ T000: empty loop overhead ]...................................0.06
====================================================================
[ T001: x := L_C ]..............................................0.08
[ T002: x := L_N ]..............................................0.03
[ T003: x := L_D ]..............................................0.05
[ T004: x := S_C ]..............................................0.21
[ T005: x := S_N ]..............................................0.16
[ T006: x := S_D ]..............................................0.14
[ T007: x := M->M_C ]...........................................0.49
[ T008: x := M->M_N ]...........................................0.39
[ T009: x := M->M_D ]...........................................0.39
[ T010: x := M->P_C ]...........................................0.52
[ T011: x := M->P_N ]...........................................0.44
[ T012: x := M->P_D ]...........................................0.49
[ T013: x := F_C ]..............................................0.80
[ T014: x := F_N ]..............................................0.72
[ T015: x := F_D ]..............................................0.71
[ T016: x := o:Args ]...........................................0.47
[ T017: x := o[2] ].............................................0.11
[ T018: round( i / 1000, 2 ) ]..................................1.52
[ T019: str( i / 1000 ) ].......................................7.96
[ T020: val( s ) ]..............................................0.89
[ T021: val( a [ i % 16 + 1 ] ) ]...............................1.30
[ T022: dtos( d - i % 10000 ) ].................................1.97
[ T023: eval( { || i % 16 } ) ].................................3.66
[ T024: eval( bc := { || i % 16 } ) ]...........................1.88
[ T025: eval( { |x| x % 16 }, i ) ].............................1.51
[ T026: eval( bc := { |x| x % 16 }, i ) ].......................1.15
[ T027: eval( { |x| f1( x ) }, i ) ]............................1.75
[ T028: eval( bc := { |x| f1( x ) }, i ) ]......................1.53
[ T029: eval( bc := &("{ |x| f1( x ) }"), i ) ].................2.46
[ T030: x := &( 'f1(' + str(i) + ')' ) ].......................31.16
[ T031: bc := &( '{|x|f1(x)}' ), eval( bc, i ) ]...............47.67
[ T032: x := valtype( x ) + valtype( i ) ].....................1.21
[ T033: x := strzero( i % 100, 2 ) $ a[ i % 16 + 1 ] ]..........6.94
[ T034: x := a[ i % 16 + 1 ] == s ].............................0.83
[ T035: x := a[ i % 16 + 1 ] = s ]..............................1.14
[ T036: x := a[ i % 16 + 1 ] >= s ].............................1.43
[ T037: x := a[ i % 16 + 1 ] <= s ].............................1.27
[ T038: x := a[ i % 16 + 1 ] < s ]..............................1.15
[ T039: x := a[ i % 16 + 1 ] > s ]..............................1.13
[ T040: ascan( a, i % 16 ) ]....................................2.44
[ T041: ascan( a, { |x| x == i % 16 } ) ]......................15.11
[ T042: iif( i%1000==0, a:={}, ), aadd(a,{i,1,.t.,s,s2,a2, ]...12.08
[ T043: x := a ]................................................0.07
[ T044: x := {} ]...............................................1.13
[ T045: f0() ]..................................................0.42
[ T046: f1( i ) ]...............................................0.55
[ T047: f2( c[1...8] ) ]........................................0.44
[ T048: f2( c[1...40000] ) ]....................................0.41
[ T049: f2( @c[1...40000] ) ]...................................0.60
[ T050: f2( @c[1...40000] ), c2 := c ]..........................0.50
[ T051: f3( a, a2, s, i, s2, bc, i, n, x ) ]....................0.78
[ T052: f2( a ) ]...............................................0.39
[ T053: x := f4() ].............................................2.73
[ T054: x := f5() ].............................................1.86
[ T055: x := space(16) ]........................................0.97
[ T056: f_prv( c ) ]............................................1.42
====================================================================
[ total application time: ]...................................173.01
[ total real time: ]..........................................173.01
_______________________________________________
Harbour mailing list
[email protected]
http://lists.harbour-project.org/mailman/listinfo/harbour
