[fpc-pascal] Happy tickets benchmark

Vojtěch Čihák vojtech.cihak at atlas.cz
Sat Feb 13 22:21:36 CET 2016


I can confirm, Inc(); is slower. Change decreased time from 440 to 390 ms.
 
Quick test (empty project in Laz.):
unit1.pas:35                              inc(TicketsCount);
000000000046DB18 4883c001                 add    $0x1,%rax
unit1.pas:36                              TicketsCount+=1;
000000000046DB1C 488d4001                 lea    0x1(%rax),%rax
unit1.pas:37                              TicketsCount:=TicketsCount+1;
000000000046DB20 488d5801                 lea    0x1(%rax),%rbx
______________________________________________________________
> Od: Paulo Costa <paco.mail.telepac.pt at gmail.com>
> Komu: <fpc-pascal at lists.freepascal.org>
> Datum: 13.02.2016 22:00
> Předmět: Re: [fpc-pascal] Happy tickets benchmark
>
On 13-Feb-16 10:44, Serguei TARASSOV wrote:
> Could anyone make the series on Windows with FPC, Delphi and MS .Net?
> The test of FPC 3.0 and any other comments are welcome.

On my PC with Windows 8.1, fpc 2.6.4 32bits, when I changed the line:
inc(TicketsCount);
to:
TicketsCount := TicketsCount + 1;

the results improved from:
C:\tmp\tests>HappyTickets.exe
Found 4816030 tickets. Elapsed time, msec: 323

to

C:\tmp\tests>HappyTickets.exe
Found 4816030 tickets. Elapsed time, msec: 262


Paulo Costa
_______________________________________________
fpc-pascal maillist  -  fpc-pascal at lists.freepascal.org
http://lists.freepascal.org/cgi-bin/mailman/listinfo/fpc-pascal <http://lists.freepascal.org/cgi-bin/mailman/listinfo/fpc-pascal>

-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.freepascal.org/pipermail/fpc-pascal/attachments/20160213/16a57a8a/attachment.html>


More information about the fpc-pascal mailing list