Hallo,
ich habe gerade meine alte VLInt auf Operatoren-Überladung umgestellt. Da sie nun nach einigen Schwierigkeiten mit BitwisAAnd (grr, Embacadero!) nach außen durch einfache Bedienbarkeit glänzt, will ich jetzt die inneren Werte aufpolieren und einige Prozeduren durch Assembler ersetzen.
Die Ziffern sind in einer TList namens FDigits mit der Basis 2^32 organisiert, 0 = nil, das Vorzeichen steckt in einem Boolean.
Meine alte TVLInt.Implicit sieht so aus:
Delphi-Quellcode:
class operator TVLInt.Implicit(const a: Cardinal): TVLInt;
begin
Result.Create; // FDigits := TList.Create; FIsNegative := False;
Result[0] := a; // FDigits[Ind] := Pointer(Val);
end;
Hier versammeln sich meine
asm-Probleme: (Rechnen klappt teilweise schon ganz gut)
1. Das Anlegen von FDigits
2. Zuweisen von FDigits.Capacity
3. FDigits <= a
Delphi-Quellcode:
class operator TVLInt.Implicit(
const a: Cardinal): TVLInt;
asm
// eax <= a
// mov [edx], eax ???
// edx = @Result[0]
end;
Kann mir vielleicht jemand zeigen, wie das geht?
Gruß Talia