asm für meine VeryLongInteger-Unit

[himitsu]

Delphi-Quellcode:

mov [edx], eax
mov edx.IsNegative, 0

Ich bin mir grad nicht so sicher, ob das richtigrum ist.

EAX = Self (der Record selber)
EDX = 1. Parameter, also a

Bei dir sieht es so aus, als wenn du es andersrum machst. :gruebl:

[Talia]

Hallo himitsu,

ja, darüber habe ich mich auch gewundert, aber so funktioniert es wirklich. Im Internet habe ich hierzu 2 Infos gefunden:

1. Bei Methoden: EAX = Self, EDX, ECX

2. Liefert eine Funktion einen array als Ergebnis, wird er behandelt wie eine zusätzliche Var.

Keine Ahnung, warum hier 2. gilt.


Ich habe nochmal an meiner Deklaration rumgefummelt, würde doch lieber einen dyn array verwenden, um für alle Fälle gerüstet zu sein:

Delphi-Quellcode:

type
  TVLInt = record
  strict private
    Digits: array of Cardinal;
    IsNegative: Boolean;
    Length: Integer;
    ...
  public
    class operator Implicit(const a: Cardinal): TVLInt;
    ...
  end;


implementation 

class operator TVLInt.Implicit(const a: Cardinal): TVLInt;
begin
  SetLength(Result.Digits,1);
  Result.Digits[0] := a;
  Result.Length := Integer(a > 0);
end;

Dann habe ich mir mit Strg-Alt-c angeguckt, was Delphi beim Anlegen so treibt und folgendes geguttenbergt:

Delphi-Quellcode:

class operator TVLInt.Implicit(const a: Cardinal): TVLInt;
// eax <= a
asm
// MyVLInt.pas.41: begin
  push ebx
  push esi
  mov ebx,edx
  mov esi,eax
// MyVLInt.pas.42: SetLength(Result.Digits,1);
  push $01
  mov eax,ebx
  mov ecx,$00000001
  mov edx,[$00455c9c]  // ???  typeInfo??
  call System.@DynArraySetLength
  add esp,$04
// MyVLInt.pas.43: Result.Digits[0] := a;
  mov eax,[ebx]
  mov [eax],esi
// MyVLInt.pas.44: Result.Length := Integer(a > 0);
  test esi,esi
  setnbe al
  and eax,$7f
  mov [ebx+$05],eax
// MyVLInt.pas.71: end;
  pop esi
  pop ebx
  ret
end;

Es gibt hier Schwierigkeiten mit DynArraySetLength (Zugriffsverletzung).

Emba schreibt: DynArraySetLength(var a: Pointer; typeInfo: Pointer; dimCnt: Longint; lengthVec: PLongint);

aber wie man edx richtig bestückt ist mir nicht klar. Ich habe einiges ausprobiert, produziere aber immer Murks.


Gruß Talia

[Talia]

Hallo,

als Notlösung habe ich jetzt eine globale Variable eingeführt und unter initialization TypeInfo zugewiesen. Nicht besonders OOP, funktioniert aber.

Gruß Talia