ASM-Funktion Verständnisfrage und anpassen (asm > Delphicode? bzw asm x86 > x64?)

[DieDolly]

Zitat:

Da diese Multiplikation in 32-Bit durchgeführt wird

Das merke ich gerade, wo ich mit 64bit kompilieren möchte. Da scheint es PUSH wohl nicht zu geben.

Wenn ich randInt_MT19937 mit Hilfe deiner Kommentare in normalen Delphi-Code umwandle, hat das irgendwelche Nachteile?
Wenn nicht, würde ich das machen.

Delphi-Quellcode:

function randInt_MT19937(Range: LongInt): LongInt;
begin
 Result := Range * genrand_MT19937;
end;

function randInt_MT19937(Min, Max: LongInt): LongInt;
begin
 Result := randInt_MT19937(Max - Min) + Min;
end;

Diese Funktion schmeiße ich dann raus

Delphi-Quellcode:

function randFloat_MT19937: Double;
const
 Minus32: Double = -32.0;
 asm
  CALL    genrand_MT19937
  PUSH    0
  PUSH    EAX
  FLD     Minus32
  FILD    qword ptr [ESP]
  ADD     ESP,8
  FSCALE
  FSTP    ST(1)
end;

[Uwe Raabe]

Zitat von DieDolly:

Das merke ich gerade, wo ich mit 64bit kompilieren möchte. Da scheint es PUSH wohl nicht zu geben.

64-Bit Assembler ist anders als 32-Bit Assembler. Sind beide Ziele gewünscht, würde ich auf ASM weitestgehend verzichten.

Zitat von DieDolly:

Wenn ich randInt_MT19937 mit Hilfe deiner Kommentare in normalen Delphi-Code umwandle, hat das irgendwelche Nachteile?
Wenn nicht, würde ich das machen.

Klar geht das. Du solltest dann halt das Overflow-Checking abschalten, sonst gibt es höchstwahrscheinlich Exceptions.

[DieDolly]

Delphi-Quellcode:

function randInt_MT19937(Range: LongInt): LongInt;
begin
 Result := Range * genrand_MT19937;
end;

function randInt_MT19937(Min, Max: LongInt): LongInt;
begin
 Result := randInt_MT19937(Max - Min) + Min;
end;

Ist es normal, dass randInt_MT19937(50, 60) alles zurückgibt, außer eine Zahl zwischen 50 und 60?

Die erste Funktion verstehe ich aber auch nicht. Wenn ich randInt_MT19937(100) eingebe, bekomme ich auch alles zurück. Aber es stoppt nicht bei der 50.
Negative Zahlen kommen auch manchmal raus.
Der ASM-Code macht hingegen das was er soll.

Das hier mal Zeile für Zeile übersetzt

Delphi-Quellcode:

asm
 PUSH EAX {Parameter 1 = Range auf Stack sichern}
 CALL genrand_MT19937 {Random Longint aufrufen, Ergebnis steht in EAX (keine Parameter)}
 POP EDX {Range vom Stack in EDX holen}
 MUL EDX {EAX mit EDX multiplizieren}
 MOV EAX,EDX {Ergebnis in result = EDX zurückgeben}
end;

Erst kommt Range in EAX. Dann wird das Resultat von genrand_MT19937 in EAX geschrieben. Range in EAX wird überschrieben.
Jetzt ist Range plötzlich in EDX (?) und danach wird EAX mit EDX multipliziert.

[Uwe Raabe]

Ich muss die Beschreibung des MOV Befehls korrigieren (ist schon 'ne Weile her mit ASM): Die Richtung ist anders herum

Delphi-Quellcode:

asm
 PUSH EAX {Parameter 1 = Range auf Stack sichern}
 CALL genrand_MT19937 {Random Longint aufrufen, Ergebnis steht in EAX (keine Parameter)}
 POP EDX {Range vom Stack in EDX holen}
 MUL EDX {EAX mit EDX multiplizieren, Ergebnis steht in EDX,EAX }
 MOV EAX,EDX {Die höheren 32-Bits in EDX als result in EAX zurückgeben }
end;

Der Delphi-Code sähe dann so aus:

Delphi-Quellcode:

  
Result := Int64Rec(Int64(Range) * genrand_MT19937).Hi;

[DieDolly]

Mh ich verstehe es nicht.
Jetzt bekomme ich fast immer negative Zahlen wenn man zum Beispiel 10 als Range angibt und ich verstehe grundsätzlich nicht warum.

Bei Range 10 gehen die Ergebnisse ziemlich genau von -5 bis +5.

[Uwe Raabe]

Zitat von DieDolly:

Jetzt bekomme ich fast immer negative Zahlen wenn man zum Beispiel 10 als Range angibt und ich verstehe grundsätzlich nicht warum.

Bei Range 10 gehen die Ergebnisse ziemlich genau von -5 bis +5.

Das halte ich für unwahrscheinlich. Int64Rec.Hi ist als Cardinal deklariert. Da sind negative Werte eher selten zu erwarten.

[DieDolly]

Teste es =) Irgendwas ist hier ganz seltsam. Das verstehe ich ja auch nicht.

Delphi-Quellcode:

function randInt_MT19937(Range: LongInt): LongInt;
begin
 Result := Int64Rec(Int64(Range) * genrand_MT19937).Hi;
end;

procedure TForm1.FormCreate(Sender: TObject);
var
 i: Integer;
 x: string;
begin
 for i := 0 to 30 do
  x := x + sLineBreak + IntToStr(randInt_MT19937(10));
 
 ShowMessage(x);
end;

Code:

[Window Title]
Project1

[Content]

1
1
-4
3
-4
-4
3
-1
-3
3
-1
-3
-2
0
2
-5 ////////
-4
2
0
-1
-3
-2
-3
3
-3
5 ////////
2
-3
-4
3
3

[OK]