Neden aynı kod iş parçacığında daha hızlı yürütüyor?

Question

bu kod çok basit bir parça düşünün:

uses Diagnostics; 

const 
    ITER_COUNT = 100000000; 

procedure TForm1.btn2Click(Sender: TObject); 
var 
    val: Double; 
    i: Integer; 
begin 
    sw := TStopwatch.StartNew; 

    val := 1; 
    for i := 0 to ITER_COUNT - 1 do 
    begin 
    val := val + i; 
    val := val - i; 
    val := val * 10; 
    val := val/10; 
    end; 

    sw.Stop; 

    mmo1.Lines.Add(Format('Simple completed in %D ms. Result: %G', 
    [sw.ElapsedMilliseconds, val])); 
end; 

Bu basit döngü benim PC'de ms yürütür. Aynı kod yazmak Şimdi, eğer sadece farklı iplik kullanarak:

procedure TForm1.btn3Click(Sender: TObject); 
begin 
    sw := TStopwatch.StartNew; 
    TThread.CreateAnonymousThread(
    procedure 
    var 
     val: Double; 
     i: Integer; 
    begin 
     val := 1; 
     for i := 0 to ITER_COUNT- 1 do 
     begin 
     val := val + i; 
     val := val - i; 
     val := val * 10; 
     val := val/10; 
     end; 

     sw.Stop; 

     TThread.Queue(nil, procedure 
     begin 
      mmo1.Lines.Add(Format('Async completed in %D ms. Result: %G', 
      [sw.ElapsedMilliseconds, val])); 
     end); 
    end 
).Start; 
end; 

aynısını yapar ama farklı bir iş parçacığı ms yürütür Bu yöntem! (Serbest bırakma yapılandırması etkinken Delphi XE'de derlendi) Fark ettim kaç tane iterasyon olursa olsun iplikte ~% 25 kazanç fark ettim. Neden böyle? Aynı sonuçlar olmamalı mıydı?

DÜZENLEME: Daha fazla araştırmadan sonra muhtemelen bunun nedeninin Windows 7 işletim sistemi olduğunu buldum. Windows 7'de ana iş parçacığı içinde basit döngü, async sürümden ~% 25 daha yavaş çalışır! Hatta aynı projeyi Windows XP modunu kullanarak aynı Windows 7 PC'de çalıştırmayı denedim ve her iki sonuç da eşittir - ~ 3000ms! Burada tamamen kayboldum ... Windows 7, ana iş parçacığı ile daha yavaş ne yapıyor?

Answer 1

Gerçekten garip ama belki de bazı ofset c.q. hizalaması.

Belki de adsız iş parçacığındaki değişkenler uygun şekilde hizalanmış, diğeri de değil. Ofset değiştirmek için bazı kukla değişkenler eklemeye çalışabilir veya Delphi XE2 varsa, farklı bir code alignment deneyin.