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