Assembler-Rätsel

[samso]

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!