64bit asm

[mb1996]

Hallo Leute,
wie kann man diesen Win32 ASM-Code in WIn64 übersetzten?

Delphi-Quellcode:

function TPRNG.random: 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;

[Horst0815]

Anpassen der Register sollte reichen

EAX->RAX
ESP->RSP

[jbg]

Zitat von Horst0815:

Anpassen der Register sollte reichen

So einfach ist das nicht. Denn die 32bit Funktion hat das Ergebnis im TOS zurückgegeben, bei 64bit muss es aber im RAX Register zurückgegeben werden. Zudem wird die FPU eigentlich unter Win64 nicht mehr genutzt, da alle Gleitkommazahlen über SSE abgehandelt werden.

[gammatester]

Warum muß es denn unbedingt Assembler sein?

Delphi-Quellcode:

function TPRNG.random: Double;
begin
  Result := genrand_MT19937/4294967296.0;
end;

macht doch wohl genau das, was Du brauchst. Wenn's dann noch mit inline deklariert wird, ist es eventuell sogar schneller als eine asm-Funktion. Falls genrand_MT19937 ein longint liefert, mußt Du halt noch ein DWORD/cardinal/longword-Typecast einstreuen:
Result := longword(genrand_MT19937)/4294967296.0