XE2: ASM und Pascal gemischt?

[Schorschi5566]

Zitat:

Ok, ich sehe es, aber wo liegt da der große Vorteil? Die paar Mikrosekunden Zeitersparnis?

Wird sich zeigen. Werde dann mal die Win32 und die Win64-Version vergleichen. Wirkt sich wahrscheinlich eh erst ab ein paar Millionen Aufrufen auf der Stopuhr aus.

[himitsu]

- Lade alles statisch.
- Lade doch alle Adressen gleich zu Beginn und springe danach direkt hin, ohne den Wrapper.
oder
- Lade überall erstmal Laderoutinen rein und tausche diese, beim ersten Aufruf, aus.

Delphi-Quellcode:

interface

var
  SQLite3_Open: function(filename: PAnsiChar; var db: TSQLiteDB): integer; cdecl;

implementation

function _SQLite3_Open(filename: PAnsiChar; var db: TSQLiteDB): integer; cdecl;
begin
  LoadProcAddress(SQLite3_Open, 'sqlite3_open');
  Result := SQLite3_Open(filename, db);
end;

initialization

SQLite3_Open := _SQLite3_Open;

Ich weiß jetzt nicht, wie das mit Konstanten in Mac oder 64 Bit aussieht, aber früher hätte ich eventuell eine typisierte Konstante mißhandelt, anstatt der globalen Variable (da diese grungsätzlich erstmal schreibgeschützt ist, was sich aber verbiegen läßt)

[samso]

Dieser ASM-Trick wird häufig verwendet (z.B. Jedi-Projekt). Es gibt drei Vorteile:
1) Es braucht nicht jedesmal eine individuelle global variable deklariert zu werden. Wenn man nur eine Funktion wrappen muss spielt das keine Rolle, aber bei 150 Funktionen macht einen dieses ständige Copy&Paste schon ganz schön müde.
2) Die Parameter, die sich ja sowieso schon auf dem Stack befinden, werden nicht nochmal auf den Stack kopiert
3) Ein sicherlich zu vernachlässigender Zeitvorteil beim Sprung/Rücksprung in die eigentliche Routine

Wenn der Compiler eine Aufrufkonvention unterstützen würde, bei der die Parameter nicht nochmals kopiert werden müssten, könnte man sich den Umweg über Assembler sparen. Ich würde mir so etwas wünschen (entsprechend des Aufrufs "inherited;"):

Delphi-Quellcode:

var
   _SQLite3_Open: FARPROC;

function SQLite3_Open(filename: PAnsiChar; var db: TSQLiteDB): integer; cdecl;
begin
   if _SQLite3_Open = nil then
     LoadProcAddress(_SQLite3_Open, 'sqlite3_open');
   _SQLite3_Open;
end;

[jaenicke]

Zitat von samso:

Wenn man nur eine Funktion wrappen muss spielt das keine Rolle, aber bei 150 Funktionen macht einen dieses ständige Copy&Paste schon ganz schön müde.

Wer macht das denn schon manuell?

[samso]

Wenn Du mir jetzt auch noch einen funktionierenden Automaten nennen würdest?

[jaenicke]

Ich habe mir dafür selbst schnell einen Experten geschrieben. Dem muss ich allerdings noch nested types und Generics beibringen (der war für D2006), aber zumindest als reiner Generator in einer neuen Unit wäre er schon fertig.

Und das zum Generieren als externes Tool sind ja nur ein paar Minuten Arbeit, oder?