[Optimiert] Explode Prozedur - Reloaded (Ersatz für CodeLib)

[DeddyH]

Ich habe die Funktion jetzt nicht in ihrer ganzen Logik erfasst, aber man müsste sie so umschreiben können:

Zitat:

Delphi-Quellcode:

      If fEndOfText Then
        Result := False
      Else
        begin
          ...
        end;

wird zu:

Delphi-Quellcode:

Result := False;
      If not fEndOfText Then
        begin
          ...
        end;

[Christian Seehase]

Moin Detlef,

IMHO sollte man Result erst möglichst spät verwenden, da man ansonsten das (E)AX-Register früh blockiert. Also Folge wäre der resultierende Code dann nicht so gut optimierbar.
Je nach Anwendungsfall kann sich das auf die Performance auswirken.

[himitsu]

Delphi lagert Result (falls es wirklich in EAX oder EAX+EDX zurückgegeben wird) notfalls auf ein anderes Register oder den Stack aus ... blockiert wird also nichts.

[ot] aber schön dich mal wieder aktiver zu sehn

[Z4ppy]

DeddyH:
Vielleicht aber auch:

Delphi-Quellcode:

      If fEndOfText Then
        Result := False
      Else
        begin
Result:=True;
          ...
        end;

Auf Zeile 332 ist übrigens eine Funktion einer anderen Kompo mit gleichem Namen so geschrieben.

MfG Z4ppy

[Christian Seehase]

Zitat von himitsu:

Delphi lagert Result (falls es wirklich in EAX oder EAX+EDX zurückgegeben wird) notfalls auf ein anderes Register oder den Stack aus ... blockiert wird also nichts.

Sicher, wird dann, nach Möglichkeit, auf andere Speicherorte ausgewichen, aber da EAX öfter benötigt wird, kann das den resultierenden Objectcode negativ beeinflussen.

[himitsu]

Delphi lagert es nur einmal aus und es wird dann vorm RET auf EAX kopiert.
Result wird in soeinem Fall einfach wie eine lokale Variable behandelt und erst zum Schluß als "Result" gesetzt.

Es sollte also nicht unbedingt extreme Einbusen geben.

Code:

function Test: Integer;
begin
  Result := 123;
  asm  mov eax, 789;  end;
end;

mov edx,$0000007b  // Result := 123;
mov eax,$00000315  // asm  mov eax, 789;  end;
mov eax,edx        // end;
ret