if-Abfrage mit "or" oder ähnlichem

[Jens Schumann]

Hallo,
wenn ich in meinen ASM Erinnerungen krame (ist 12 Jahre her) bin ich der Meinung,
dass mein Beitrag schnelleren Code erzeugt.
Ich habe mal folgende Testcode geschrieben und ohne Compileroptimierungen übersetzt.

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  x : Integer;
  Y : Integer;
begin
  If (x=5) or (x=15) or (x=25) then // Hier einen Haltepunkt setzten un ddas CPU-Fenster aufrufen
    y:=1;
  If x in [5,15,24] then
    y:=2;  
end;

Folgendes Bild zeigt wie Delphi den Code übersetzt hat (CPU-Fenster)
http://home.t-online.de/home/jensschumann/dp/cpuwin.jpg Im oberen Teil sieht man die Übersetzung von

Code:

If (x=5) or (x=15) or (x=25)

im unteren Teil die Übersetzung

Code:

If x in [5,15,24] then

Wenn ich mich recht entsinne bedeutet

Code:

cmp dword ptr [ebp-$08],$05

Das für den Vergleich (cmp) über dword ptr [ebp-$08] auf den Stack zugrgriffen, um den Wert für x zu holen. Das passiert dreimal !!!
Im unteren teil wird mit mov eax,[ebp-$08] einmal in das eax Register geladen und anschließend werden die Werte 5,15 und 24 nacheinander von eax abgezogen. Wenn Null raus kommt dann springen.
Da sich dieser Teil in den Prozessorregistern abspielt glaube ich das er schneller abgearbeitet wird.

Bitte korrigiert mich wenn ich hier falsch liegen sollte.