Die Profis sind halt oft im Stress...
Der Code stammt von PosEx aus einem älteren Delphi. Da wurde noch eine Subroutine benötigt. (Die Kommentare stammen natürlich von mir)
Delphi-Quellcode:
add esp, 12
// Ist Bereinigung notwendig?
mov ecx, [esp]
or ecx, [esp+4]
jz @NoClear // Nein, keine Bereinigung nötig
mov ebx, eax // eax sichern
mov esi, edx // edx sichern
mov eax, esp // Parameter laden
mov edx, 2 // Parameter laden
call System.@LStrArrayClr
mov eax, ebx // eax wieder herstellen
mov edx, esi // edx wieder herstellen
@NoClear:
add eax, edx
add esp, 8
pop ebx
pop esi
end;
Bei den neueren Delphis wurden dann die Bereinigung "System.@LStrArrayClr" überflüssig. Der Programmierer hat dann einige Teile die für den Aufruf der Subroutine notwendig waren entfernt, aber das nicht konsequent zu Ende gedacht. Eigentlich hätte er den kompletten Block hinter "add esp,12" weglassen können.
Ähnlich schräg ist der folgende Teil (Delphi 10.1 immer noch function Pos):
Code:
@Exit:
add esp, 12
// es folgt überflüssiger Code
@Past:
mov eax, [esp]
or eax, [esp+4]
jz @PastNoClear // Preisfrage: wo landen wir wenn das Z-Flag nicht gesetzt ist?
@PastNoClear:
// ab hier wird es wieder sinnig
pop ebx
pop esi
@Nil:
xor eax, eax
ret
Vielleicht hätte man sich besser noch mal den Originalcode von Aleksandr Sharahov angesehen - das war wirklich ein Profi!