<p style="padding:0 0 0 0; margin:0 0 0 0;">I can confirm, Inc(); is slower. Change decreased time from 440 to 390 ms.</p>

<p style="padding:0 0 0 0; margin:0 0 0 0;"> </p>

<p style="padding:0 0 0 0; margin:0 0 0 0;">Quick test (empty project in Laz.):</p>

<p style="padding:0 0 0 0; margin:0 0 0 0;">unit1.pas:35                              inc(TicketsCount);</p>

<p style="padding:0 0 0 0; margin:0 0 0 0;">000000000046DB18 4883c001                 add    $0x1,%rax</p>

<p style="padding:0 0 0 0; margin:0 0 0 0;">unit1.pas:36                              TicketsCount+=1;</p>

<p style="padding:0 0 0 0; margin:0 0 0 0;">000000000046DB1C 488d4001                 lea    0x1(%rax),%rax</p>

<p style="padding:0 0 0 0; margin:0 0 0 0;">unit1.pas:37                              TicketsCount:=TicketsCount+1;</p>

<p style="padding:0 0 0 0; margin:0 0 0 0;">000000000046DB20 488d5801                 lea    0x1(%rax),%rbx</p>

<p style="padding:0 0 0 0; margin:0 0 0 0;">______________________________________________________________<br />
> Od: Paulo Costa <paco.mail.telepac.pt@gmail.com><br />
> Komu: <fpc-pascal@lists.freepascal.org><br />
> Datum: 13.02.2016 22:00<br />
> Předmět: Re: [fpc-pascal] Happy tickets benchmark<br />
></p>

<p style="padding:0 0 0 0; margin:0 0 0 0;">On 13-Feb-16 10:44, Serguei TARASSOV wrote:<br />
> Could anyone make the series on Windows with FPC, Delphi and MS .Net?<br />
> The test of FPC 3.0 and any other comments are welcome.<br />
<br />
On my PC with Windows 8.1, fpc 2.6.4 32bits, when I changed the line:<br />
inc(TicketsCount);<br />
to:<br />
TicketsCount := TicketsCount + 1;<br />
<br />
the results improved from:<br />
C:\tmp\tests>HappyTickets.exe<br />
Found 4816030 tickets. Elapsed time, msec: 323<br />
<br />
to<br />
<br />
C:\tmp\tests>HappyTickets.exe<br />
Found 4816030 tickets. Elapsed time, msec: 262<br />
<br />
<br />
Paulo Costa<br />
_______________________________________________<br />
fpc-pascal maillist  -  fpc-pascal@lists.freepascal.org<br />
<a href="http://lists.freepascal.org/cgi-bin/mailman/listinfo/fpc-pascal">http://lists.freepascal.org/cgi-bin/mailman/listinfo/fpc-pascal</a></p>