getters sind langsam

[dpg123]

Hallo zusammen,

für ein Number-Cruncher-Projekt brauche ich einen vernünftigen Kompromiss aus Speed und komfortable Code-Wartung bzw Code-Verwendung für den Zugriff auf ein dynamisches Array.

Einerseits soll der Zugriff möglichst schnell sein, andererseits sollten diverse OO-Prinzipien eingehalten werden.

Mit folgendem Demo-Prog hab ich mal die Zeiten vergleichen:

Delphi-Quellcode:

type

  TForm1 = class(TForm)

    procedure FormCreate(Sender: TObject);

  private
    { Private-Deklarationen }

    function getInd( x: integer; aMin: integer ): Integer;

  public
    { Public-Deklarationen }


  end;


type

  TDynValueArray  = array of Extended;

  TStatValueArray = array [20..120] of Extended;


  IDynArray = interface( IInterface )
  ['{4F626337-44B1-4340-A05C-711A04A0DEB4}']

    function getMin(): Integer;

    function getMax(): Integer;

    function getVal( x: integer ): Extended;

    procedure setValue( x: Integer; aValue: Extended );

    property val[ index: integer ]: extended read getVal write setValue; default;

    property min: Integer read getMin;

    property max: Integer read getMax;

  end;


  TDynArrayImpl = class(TInterfacedObject,IDynArray)


    var

        Fval: TDynValueArray;

        Fmin: Integer;

        Fmax: Integer;
        

    function getMin(): Integer;

    function getMax(): Integer;


    function getVal( x: integer ): Extended;

    procedure setValue( x: Integer; aValue: Extended );

    
    constructor Create( aMin: Integer; aMax: Integer );

  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}


constructor TDynArrayImpl.Create(aMin, aMax: Integer);
var
  i: integer;
begin


  self.Fmin := aMin;

  self.Fmax := aMax;


  SetLength(

    Self.Fval,

    self.Fmax - self.Fmin + 1

    );


  for i := 0 to Length( self.Fval )-1 do
    self.Fval[ i ] := 0;

end;

function TDynArrayImpl.getMax: Integer;
begin
  Result := self.Fmax;
end;

function TDynArrayImpl.getMin: Integer;
begin
  Result := self.FMin;
end;

function TDynArrayImpl.getVal(x: integer): Extended;
begin

  result := Self.Fval[ x - self.FMin ];

end;

procedure TDynArrayImpl.setValue(x: Integer; aValue: Extended);
begin

  Self.Fval[ x - self.FMin ] := aValue;

end;


procedure TForm1.FormCreate(Sender: TObject);

var

  i: Integer;

  lF: Extended;

  lDynAr: IDynArray;

  lPid: Integer;

  lMin,lMax,x: Integer;

  lDynValAr: TDynValueArray;

  lValArStat: TStatValueArray;


const

  lcAnzZugriffe = High(Integer);


  function toInd(aX: Integer): Integer;
  begin
    Result := x - lMin;
  end;

begin


  lMin := 20;

  lMax := 120;

  x    := 80;


  // Variante 1: dyn Array hinter einem Interface kapseln

  lDynAr := TDynArrayImpl.Create(lMin,lMax);

  lPid := gvProfiler.start();

  for i := 1 to lcAnzZugriffe do
    lF := lDynAr[x];

  gvProfiler.stop(lPid,'interface');



  SetLength(

    lDynValAr,

    lMax - lMin + 1

    );


  // Variante 2: direkter Zugriff auf das dyn Array, Indexverschiebung per function kapseln

  lPid := gvProfiler.start();

  for i := 1 to lcAnzZugriffe do
    lF := lDynValAr[ toInd(x) ];

  gvProfiler.stop(lPid,'dynAr direkt, function offset');


  // Variante 3: direkter Zugriff auf das dyn Array, direkte Indexverschiebung

  lPid := gvProfiler.start();

  for i := 1 to lcAnzZugriffe do
    lF := lDynValAr[ x - lMin ];

  gvProfiler.stop(lPid,'dynAr direkt, offset direkt');


  // Zum Vergleich: statisches Array

  lPid := gvProfiler.start();

  for i := 1 to lcAnzZugriffe do
    lF := lValArStat[ x ];

  gvProfiler.stop(lPid,'statAr direkt, ohne offset');

end;

function TForm1.getInd(x: integer; aMin: integer): Integer;
begin

  Result := x - aMin;

end;

Ergebnis:

Variante1: interface
16832 ms

Variante2: dynAr direkt, function offset
8143 ms

Variante3: dynAr direkt, offset direkt
3822 ms

Vergleich: statAr direkt, ohne offset
3791 ms


Was ich mir nicht erklären kann:

Warum ist der getter-Zugriff des Interfaces (var 1) um Faktor 2 langsamer als die Indexberechung per function (var 2)?

Wie würdet ihr es lösen, wenn zumindest die Indexverschiebung gekapselt sein soll?


Vielen Dank und Grüße

[freimatz]

bischen OT, aber hast Du schon mal inline probiert?
http://docwiki.embarcadero.com/RADSt...rufen_(Delphi)

Ansonsten ist mir dein Beispiel zu sehr entgegen meinen Gewohnheiten (Leerzeilen, zu kurze Namen), als dass ich das innerhalb nützlicher Frist genau verstehen würde was du da machst.

[dpg123]

Zitat:

Zitat von freimatz (Beitrag 1421163)

bischen OT, aber hast Du schon mal inline probiert?
http://docwiki.embarcadero.com/RADSt...rufen_(Delphi)

Ansonsten ist mir dein Beispiel zu sehr entgegen meinen Gewohnheiten (Leerzeilen, zu kurze Namen), als dass ich das innerhalb nützlicher Frist genau verstehen würde was du da machst.

Vielen Dank Freimatz für deinen Hinweis auf inline. schaue ich mir an und experimentiere damit mal.

Entschuldigt, falls meine Nomenklatur komplett gegen den Standard ist!

Und bitte nicht von der gvProfiler - Variable verwirren lassen. Die verwaltet nur getTickCounts. Da das nichts mit dem Problem zu tun hat, hab ich den Code nicht aufgeführt.

[TiGü]

Du testet mit High(Integer)-1. Also rund 4,29 Milliarden mal.
Ist das später auch eine Größenordnung die ein Standardfall darstellt?
Oder reden wir dann eher von 1000 bis 1000000 Schleifendurchläufen?

[dpg123]

Zitat:

Zitat von TiGü (Beitrag 1421167)

Du testet mit High(Integer)-1. Also rund 4,29 Milliarden mal.
Ist das später auch eine Größenordnung die ein Standardfall darstellt?
Oder reden wir dann eher von 1000 bis 1000000 Schleifendurchläufen?

Die Schleifendurchläufe sollen einfach nur eine hohe Zugriffsanzahl simulieren. Die ist vorhanden. Ob genau in der Größenordung, kann ich nicht genau sagen. Auf jeden Fall ist dabei die Kapselung hinter einem Interface schon deutlich spürbar. So bin ich ja erst auf diesen Test gekommen.

[Namenloser]

Zitat:

Zitat von dpg123 (Beitrag 1421162)

Was ich mir nicht erklären kann:

Warum ist der getter-Zugriff des Interfaces (var 1) um Faktor 2 langsamer als die Indexberechung per function (var 2)?

Direkter Funktionsaufruf vs. indirekter Funktionsaufruf. Bei deinem Funktionsaufruf generiert der Compiler eine CALL-Instruktion zu einer bekannten Adresse. Beim Interface hingegen weiß der Compiler zur Compile-Zeit noch nicht, welche Implementierung sich dahinter zur Laufzeit verbergen wird. Deshalb besteht der Funktionsaufruf zur Laufzeit aus zwei Teilen: Zuerst wird der Funktionspointer aus dem Interface ausgelesen und im zweiten Schritt wird er dann angesprungen.

In Assember-Form sieht das ungefähr so aus:

Variante 1

Code:

MOV EAX, [interface.getval] // Funktionsadresse ins Register EAX laden
CALL EAX // Springe zur Adresse im Register EAX

Variante 2

Code:

CALL toInd

Möglich, dass der echte Assember-Code etwas anders aussieht, aber das Prinzip sollte klar werden.

[Zacherl]

Zitat:

Zitat von freimatz (Beitrag 1421163)

bischen OT, aber hast Du schon mal inline probiert?

Interface Methoden (

Delphi-Quellcode:

virtual

) werden das

Delphi-Quellcode:

inline

leider ziemlich sicher ignorieren. Das beißt sich mit dem Konzept der VMT (Virtual Method Table). Sollte einleuchten, wenn man sich Namenlosers Erklärung dazu durchliest.