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

zusammenfalten · markieren

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;

Anpassen der Register sollte reichen

EAX->RAX
ESP->RSP

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.

Warum muß es denn unbedingt Assembler sein?

markieren

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