![]() |
[asm] In Array schreiben
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:
Das Problem: anscheinend Funktioniert das SetLn nicht richtig...
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; Denn der Array hat nach wie vor die Länge 0 Hat irgendwer eine idee warum? (In SetLn kommen die Were richtig an!) |
Re: [asm] In Array schreiben
mach dochmal so:
Delphi-Quellcode:
procedure SetLn(var Ar: TResult; Cnt: Integer);
begin SetLength(Ar,Cnt); end; |
Re: [asm] In Array schreiben
Weil in SetLn nicht als VAR deklariert.
Und warum machst das in ASM? Bisschen unsinnig oder nicht? |
Re: [asm] In Array schreiben
Zitat:
|
Re: [asm] In Array schreiben
Super, dann ist Ar im SetLn ein "Nicht verfügbarer Wert" :wall:
|
Re: [asm] In Array schreiben
Wie sieht denn die Deklaration von TResult aus?
|
Re: [asm] In Array schreiben
Zitat:
Delphi-Quellcode:
TResult = array of Int64;
|
Re: [asm] In Array schreiben
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. |
Re: [asm] In Array schreiben
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? |
Re: [asm] In Array schreiben
Hi,
Ich habs mal so gemacht:
Code:
So jetzt versuch ich das mal zu erklären soweit ich dazu in der Lage bin :X
LEA eax,[ebp-$04]
MOV ecx,1 MOV edx,Result CALL System.@DynArraySetLength ADD esp,$04 Alles was jetzt folgt ist potentieller Schwachsinn :mrgreen:
Code:
Schreibt nen Pointer nach eax der auf den Pointer des Arrays zeigt
LEA eax,[ebp-$04]
Code:
Schreibt 1 nach ecx.. die Zahl steht für die Dimension des Arrays.
MOV ecx,1
Hätte man ein zweidimesionales Array würde man 2 nach ecx schreiben...
Code:
Für mich irgendwie fast das gleiche wie die erste Zeile ^^
MOV edx,Result
Code:
Tjo die Funktion aufrufen
CALL System.@DynArraySetLength
Code:
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...
ADD esp,$04
PS: Ich schätze dann müsste die $04 in der ersten Zeile auch durch $08 ersetzt werden.. Gruß Neutral General |
Alle Zeitangaben in WEZ +1. Es ist jetzt 19:52 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz