hey there

Ich habe Probleme bei der Division mit Vorzeichen:

markieren

Delphi-Quellcode:

type
  TInteger = record
  public
    Value: Integer;
    { ... }
    function DivBy(X: Integer): Integer;
  end;

zusammenfalten · markieren

Delphi-Quellcode:

function TInteger.DivBy(X: Integer): Integer;
// Dividiert Value durch X und gibt den Rest zurück
asm
    PUSH EBX
    MOV ECX, EAX // ECX:= @Value
    MOV EAX, [ECX] // EAX:= Value
    MOV EBX, EDX // EBX:= X
    XOR EDX, EDX // EDX:= 0
    IDIV EBX // EAX:= EDX:EAX div EBX, Rest in EDX
    MOV [ECX], EAX // Value:= EAX
    MOV EAX, EDX // Result:= EDX
    POP EBX
end

Soweit funktioniert es eigentlich, einzig wenn Value negativ ist, kommt ein falscher Quotient raus... Habe ich etwas bezüglich IDIV übersehen?

Greets

Soweit ich weiß, sollte vor jedem IDIV ein CDQ (Convert Double to Quad) ausgeführt werden, bei dem EAX auf EAX:EDX vorzeichenerhaltend ausgedehnt wird. Das heißt: EDX := -Sign(EAX);

Das war's, danke dir