Lord ZealoN ha scritto:
Ok, here we go.
How i created the project? From Lazarus Menu- Project/Project from archive
Some changes? In Project/Compiler Options/Linking...
Only Win32GUIAPP and Strip activated.
FPC ver.: 2.0.3
Lazarus ver: 0.9.16 beta
Exe Size: 188.928
Physic Memory:
Total: 521712
Availible: 192400
System Cache: 215276
Laptop Acer Aspire 1600: PIV 2,4GHZ, 512 RAM, ATI RADEON MOBILE 9000
Start Lazarus silly benchmark
Int arithmetic elapsed time: 14125 ms with max of 1000000000
i: 1000000001
intResult: 1
Double arithmetic elapsed time: 14547 ms with min of 10000000000, max
of 11000000000
i: 11000000000
doubleResult: 10011632717,52295
Long arithmetic elapsed time: 19546 ms with min of 10000000000, max of
11000000000
i: 11000000000
longResult: -672337204
Trig elapsed time: 3891 ms with max of 10000000
i: 10000000
sine: 0,420547793190771
cosine: -0,907270386181745
tangent: -0,463530827850173
logarithm: 7
squareRoot: 3162,277660168379
IO elapsed time: 10203 ms with max of 1000000
i: 1000000
myLine:
abcdefghijklmnopqrstuvwxyz1234567890abcdefghijklmnopqrstuvwxyz1234567890abcdefgh
Total Lazarus benchmark time: 62312 ms
End Lazarus benchmark
Something are wrong..is much time.
Maybe not. Those are my results, under Linux, both for Borland's Kylix 3
and for Lazarus (0.9.17). on an HP-compaq d530 with Pentium 4 3.00 GHz
Cpu, cache 1024 KB, Memory 512 MB. I had to modify the source because
GetTickCount isn't available under Linux (at least I didn't find it), so
I implemented it (both for Kylix and Lazarus) with :
function GetTickCount: Integer;
var
T1: TDateTime;
T2: TTimeStamp;
begin
T1 := GetTime;
T2 := DateTimeToTimeStamp(T1);
result := T2.Time;
end;
The rest of the code is unmodified.
Kylix 3:
Start Delphi silly benchmark
Int arithmetic elapsed time: 7139 ms with max of 1000000000
i: 1000000001
intResult: 1
Double arithmetic elapsed time: 12483 ms with min of 10000000000, max of
11000000000
i: 11000000000
doubleResult: 10011632717,523
Long arithmetic elapsed time: 16501 ms with min of 10000000000, max of
11000000000
i: 11000000000
longResult: -672337204
Trig elapsed time: 2672 ms with max of 10000000
i: 10000000
sine: 0,420547793190771
cosine: -0,907270386181745
tangent: -0,463530827850173
logarithm: 7
squareRoot: 3162,27766016838
IO elapsed time: 7743 ms with max of 1000000
i: 1000000
myLine:
abcdefghijklmnopqrstuvwxyz1234567890abcdefghijklmnopqrstuvwxyz1234567890abcdefgh
Total Delphi benchmark time: 46538 ms
End Delphi benchmark
Here comes Lazarus:
Start Lazarus silly benchmark
Int arithmetic elapsed time: 8400 ms with max of 1000000000
i: 1000000001
intResult: 1
Double arithmetic elapsed time: 12486 ms with min of 10000000000, max of
11000000000
i: 11000000000
doubleResult: 10011632717.522955
Long arithmetic elapsed time: 16508 ms with min of 10000000000, max of
11000000000
i: 11000000000
longResult: -672337204
Trig elapsed time: 3155 ms with max of 10000000
i: 10000000
sine: 0.420547793190771
cosine: -0.907270386181745
tangent: -0.463530827850173
logarithm: 7
squareRoot: 3162.2776601683795
IO elapsed time: 6606 ms with max of 1000000
i: 1000000
myLine:
abcdefghijklmnopqrstuvwxyz1234567890abcdefghijklmnopqrstuvwxyz1234567890abcdefgh
Total Lazarus benchmark time: 47155 ms
End Lazarus benchmark
Lazarus performs slightly better than Kylix on I/O, slightly worse on
trig and int arithmetics, pretty identical in long and double arithmetics.
Giuliano
_________________________________________________________________
To unsubscribe: mail [EMAIL PROTECTED] with
"unsubscribe" as the Subject
archives at http://www.lazarus.freepascal.org/mailarchives
