Dlaczego ten sam kod działa szybciej w wątku?

Question

Rozważmy to bardzo prosty kawałek kodu:

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; 

Ta prosta pętla wykonuje w ms na moim komputerze. Teraz, gdy piszę ten sam kod, tylko przy użyciu innego wątku:

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; 

Ta metoda, która robi to samo, ale w innym wątku wykonuje w ms! (Skompilowany w Delphi XE z aktywną konfiguracją Release) zauważyłem ~ 25% przyrost w wątku bez względu na to, ile mam powtórzeń. Dlaczego tak się dzieje? Czy nie powinien to być ten sam rezultat?

EDIT: Po dalszych badaniach odkryłem, że prawdopodobnie powodem tego jest Windows 7 OS. Na maszynie z Windows 7 prosta pętla w głównym wątku wykonuje ~ 25% wolniej niż wersja asynchroniczna! Próbowałem nawet uruchomić ten sam projekt na tym samym komputerze z systemem Windows 7 w trybie Windows XP, a następnie oba wyniki były równe ~ 3000 ms! Jestem całkowicie zagubiony tutaj ... Co robi Windows 7 z głównym wątkiem, że jest wolniejszy?

Answer 1

Dziwne, ale może to z powodu jakiegoś przesunięcia c.q. wyrównanie.

Być może zmienne w anonimowym wątku są odpowiednio wyrównane, a pozostałe nie. Możesz spróbować dodać kilka atrap zmiennych do zmiany na offset lub jeśli masz Delphi XE2, spróbuj innego code alignment.