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

[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]

[Uwe Raabe]

Das Problem ist, daß genrand_MT19937 als LongInt deklariert ist, wo es das doch gar nicht sein sollte.

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

[DieDolly]

Ok das ist jetzt Magie für mich. genrand_MT19937 liefert manchmal auch negative Zahlen und die Zufallszahl ansich ist dann positiv (mit dem ASM Code).
Sämtliche Implementierungen von dieser Generatorfunktion (genrand_MT19937) die ich gefunden habe sehen so aus.
Ich muss mich da mal einlesen.