[asm] In Array schreiben

[glkgereon]

Hi,

Ich habe eine (funktionierende! *freu*) asm-Schleife.
Am ende dieser Schleife möchte ich immer in ein Array den Wert eine bestimmten Indexes erhöhen.
Also zB Inc(Arr[5]);

Zusätzlich muss jedesmal geprüft werden ob der Array schon so lang ist und gegebenenfalls den Array verlängern.

Mein Versuch:

Delphi-Quellcode:

var Res: TResult;
  procedure SetLn(Ar: TResult; Cnt: Integer);
  begin
    SetLength(Ar,Cnt);
  end;

asm
// ... Schleife ...
  CMP ECX,EDX //Akt Anzahl und Array-Länge
  JB @arrwrite //Index < Länge => Sofort Schreiben

  MOV EAX,Res //Parameter setzen
  MOV EDX,ECX
  CALL SetLn //Leichte Probleme SetLength direkt aufzurufen, daher ein "Dummy"

  @arrwrite: 
  ADD [EAX+8*ECX],1 //Reinschreiben

end;

Das Problem: anscheinend Funktioniert das SetLn nicht richtig...
Denn der Array hat nach wie vor die Länge 0
Hat irgendwer eine idee warum? (In SetLn kommen die Were richtig an!)

[yankee]

mach dochmal so:

Delphi-Quellcode:

procedure SetLn(var Ar: TResult; Cnt: Integer); 
  begin 
    SetLength(Ar,Cnt); 
  end;

[brechi]

Weil in SetLn nicht als VAR deklariert.
Und warum machst das in ASM? Bisschen unsinnig oder nicht?

[yankee]

Zitat von brechi:

Weil in SetLn nicht als VAR deklariert.
Und warum machst das in ASM? Bisschen unsinnig oder nicht?

Zum assembler lernen .

[glkgereon]

Super, dann ist Ar im SetLn ein "Nicht verfügbarer Wert"

[Cöster]

Wie sieht denn die Deklaration von TResult aus?

[glkgereon]

Zitat von Cöster:

Wie sieht denn die Deklaration von TResult aus?

TResult = array of Int64;

[Cöster]

Vermutung, warum es nicht funzt:
Wenn man ein array vergrößert, wird dafür eine neue Stelle im RAM gesucht, an der ausreichend Platz dafür ist. D.h. das Array liegt nachher an einer ganz anderen Adresse.
Müsstest mal selbst ausprobieren, ob das der Fall ist und wie du das lösen könntest.

[glkgereon]

Es hakt seit das var drin ist aber schon viel früher.

Ar wird nicht richtig übergeben. ("Nicht verfügbarer Wert")

Anscheinend liegt ein var-Parameter dann nicht in EAX...
Kann das sein?

[Neutral General]

Hi,

Ich habs mal so gemacht:

Code:

LEA eax,[ebp-$04]
MOV ecx,1
MOV edx,Result
CALL System.@DynArraySetLength
ADD esp,$04

So jetzt versuch ich das mal zu erklären soweit ich dazu in der Lage bin :X

Alles was jetzt folgt ist potentieller Schwachsinn

Code:

LEA eax,[ebp-$04]

Schreibt nen Pointer nach eax der auf den Pointer des Arrays zeigt

Code:

MOV ecx,1

Schreibt 1 nach ecx.. die Zahl steht für die Dimension des Arrays.
Hätte man ein zweidimesionales Array würde man 2 nach ecx schreiben...

Code:

MOV edx,Result

Für mich irgendwie fast das gleiche wie die erste Zeile ^^

Code:

CALL System.@DynArraySetLength

Tjo die Funktion aufrufen

Code:

ADD esp,$04

Keine Ahnung... Aber ich schätze es muss bei dir $08 sein.. Mein Array war ein Integer Array.. SizeOf(Integer) = 4 und SizeOf(Int64) = 8 wenn ich mich nicht täusche und ich schätze damit hats zu tun in irgendeiner Weise...

PS: Ich schätze dann müsste die $04 in der ersten Zeile auch durch $08 ersetzt werden..

Gruß
Neutral General