Findfirst/Findnext in Assembler

[negaH]

Delphi-Quellcode:

procedure _Swap(var a, b : Cardinal); 
asm 
  mov eax, [a] 
  mov ebx, [b] 
  mov [a], ebx // <- Zugriffsverletzung 
  mov [b], eax 
end

Überlege dir mal wie der Delphi Compiler der procedure _Swap die Paramter übergibt !

Delphi-Quellcode:

procedure _Swap(var a {EAX}, b {EDX} : Cardinal); {register}
asm 
  PUSH  EBX   
//  mov eax, [a] 
  MOV   EAX,[EAX] 
//  mov ebx, [b] 
  MOV   EBX,[EDX] 
//  mov [a], ebx // <- Zugriffsverletzung 
  MOV   [EAX],EBX
// mov [b], eax 
  MOV   [EDX],EAX
  POP   EBX
end

Wie du oben siehst wird A in EAX und B in EDX übergeben. Dein Zugriff mit MOV EAX,[a] -> MOV EAX,[EAX] überschreibt also die Adresse von A mit dem Wert in Adresse A, etwa so MOV A,[A].
Zudem nutzt du register EBX in deiner Funtion OHNE es zu sichern. Ließ die Delphi Hilfe, die besagt das nur EAX,EDX,ECX im Assemblersource frei benutzt werden können. D.h. EAX,EDX,ECX müssten nicht gesichert werden, alle anderen Register wie EBX,EDI,ESI,EBP aber schon.

Delphi-Quellcode:

procedure Swap(var A,B: Cardinal);
asm
  MOV  ECX,[A]
  XCHG ECX,[B]
  MOV  [A],ECX
end;
//oder
procedure Swap(var A,B: Cardinal);
asm
  PUSH  DWord Ptr [A]
  PUSH  DWord Ptr [B]
  POP   DWord Ptr [A]
  POP   DWord Ptr [B]
end;
// oder
procedure Swap(var A,B: Cardinal);
asm
  PUSH  EBX
  MOV   ECX,[A]
  MOV   EBX,[B]
  MOV   [B],ECX
  MOV   [A],EBX
  POP   EBX
end;

Gruß Hagen