Lazarus - Inline über mehrere Klassen

[mleyen]

Hi, ich wollte schon immer mal nen Performancevergleich Delphi <-> Lazarus machen und jetzt wo Lazarus 1.~ raus ist hab ich mich mal hingesetzt und ein größeres Projekt portiert.

Iwann hats dann auch endlich kompiliert ... ich die inline direktive angeschaltet ... bäm fpc heult rum ...

Alles umsonst? Oder kennt jemand einen Trick wie Lazarus das frisst?

Delphi-Quellcode:

program inlinetest;

{$IFDEF FPC}{$MODE DELPHI}{$ENDIF}

type
  TClassA = class
  private
    FTmp: Integer;
  public
    function IsOne: Boolean; inline;
    procedure SetToZero;
  end;

  TClassB = class(TClassA)
  public
    function IsOne: Boolean; inline;
  end;

{ TClassA }

function TClassA.IsOne: Boolean;
begin
  Result := FTmp = 1;
end;

procedure TClassA.SetToZero;
begin
  FTmp := 0;
end;

{ TClassB }

function TClassB.IsOne: Boolean;
begin
  result := inherited IsOne;
end;

var
  abcde: TClassB;
begin
  abcde := TClassB.Create;
  if abcde.IsOne then // in Lazarus Kompilerfehler: inlinetest.dpr(47,11) Error: Illegal expression
    abcde.SetToZero;
  abcde.Free;
end.

[jaenicke]

Warum das dort (wieder einmal, das Problem kenne ich bei Lazarus) nicht geht, weiß ich nicht, aber ganz allgemein als Hinweis:
Die Verwendung von inline in FPC kann den Code auch verlangsamen statt beschleunigen, je nachdem was im Code passiert.

[shmia]

Wenn man mal diese Funktion anschaut:

Delphi-Quellcode:

function TClassB.IsOne: Boolean;
begin
  result := inherited IsOne;
end;

Dann müsste der Compiler 2-fach inlinen.
Das dürfte doch etwas zuviel verlangt sein obwohl es natürlich theoretisch denkbar wäre, dass ein Compiler das auflösen kann.

[jaenicke]

Zitat von shmia:

Dann müsste der Compiler 2-fach inlinen.
Das dürfte doch etwas zuviel verlangt sein obwohl es natürlich theoretisch denkbar wäre, dass ein Compiler das auflösen kann.

Theoretisch denkbar?



Wie du siehst ist das für Delphi kein Problem.

[himitsu]

Zitat:

{$MODE DELPHI}

Kann auch sein, daß der FPC das in einem anderem Modus kann.


Die richtigen Lazarusjünger werden wohl nicht so oft Delphi-kompatibel arbeiten, womit dort dann vermutlich mehr ginge.

[JamesTKirk]

Zitat von mleyen:

Alles umsonst? Oder kennt jemand einen Trick wie Lazarus das frisst?

Free Pascal von 2.6.0 auf 2.7.1 aktualisieren.

Nein, im Ernst: das war ein Bug in 2.6.0 und älter, der in 2.7.1 gefixt wurde. Trotzdem wird nur der "inherited IsOne" Aufruf geinlined, nicht jedoch das "if abcde.IsOne" (ob das beabsichtigt ist oder nicht kann ich grade jedoch nicht sagen). Auch weiß ich grade nicht ob der Fix in 2.6.1 gemergt wurde und damit Teil von 2.6.2 wird...

Gruß,
Sven

[mleyen]

@JamesTKirk:
Jetzt kompiliert alles, zwar langsamer und mit myriaden inline-hints, aber vllt setz ich mich nochmal dran und copypaste mal bissl