Thema: div-Fehler

Einzelnen Beitrag anzeigen

Benutzerbild von Flocke
Flocke

Registriert seit: 9. Jun 2005
Ort: Unna
1.172 Beiträge
 
Delphi 10.2 Tokyo Professional
 
#8

Re: div-Fehler

  Alt 8. Sep 2006, 22:52
Zitat von 3_of_8:
Und wenn ich keins mehr frei hab, muss ich pushen und poppen?
Genau - und da eax, edx und ecx schon für die Parameter verwendet werden sind nur noch ebx, esi und edi frei und die müssen gesichert werden. Hier mal eine Variante:
Delphi-Quellcode:
function DivMod(Dividend, Divisor: Cardinal): TDivModResult;
asm
  push edx
  xor edx, edx
  div dword ptr [esp] // das alte EDX
  mov [ecx], eax
  add esp, 4
  mov [ecx+$04], edx
end;
// ROTER KASTEN
Irgendwie bin ich heute zu langsam...
Volker
Besucht meine Garage
Aktuell: RtfLabel 1.3d, PrintToFile 1.4
  Mit Zitat antworten Zitat