Как заставить Delphi отправлять Self через регистр ecx?

[WhiskasTM]

Всех с наступающим магазином.

Вообщем есть библиотека на c++ и есть куча экспортов и классов и эти классы ожидают параметр this(Self) придет к ним в регистре ecx, а Делфи посылает им в eax.

Пришлось делать обертку:

type
  INI_Reader = record
  {$HINTS OFF}
  strict private
    data : array [0..5480] of Byte;
  {$HINTS ON}
  public
    function open(const Filename:LPCSTR;const Dunno:BOOL=False):Boolean;
    function close:Boolean;
  end;

function ini_open(const S:LPCSTR;const Dunno:BOOL=False):Boolean;cdecl;external Common name '?open@INI_Reader@@QAE_NPBD_N@Z';
function ini_close:Boolean;cdecl;external Common name '?close@INI_Reader@@QAEXXZ';

implementation

function INI_Reader.open(const Filename:LPCSTR;const Dunno:BOOL=False):Boolean;
asm
  push    Dunno
  push    Filename
  mov     ecx,Self
  call    ini_open
end;

function INI_Reader.close:Boolean;
asm
  mov     ecx,Self
  call    ini_close
end;

Вот cdecl: и он автоматом складывает аргументы в стек командой push(если не асме писать),а можно ли как-то заставить его также автоматом делать вот это mov ecx,Self? Если нет, то как можно избавиться от двойного call-а? Ну, как фактически инлайнить ассемблер? Просто не хочу обертки, опять.

[Человек_Борща]

Переписать C++ библиотеку? Фактически параметрами местами поменять..

[WhiskasTM]

Библиотека от игры майкрософт freelancer, исходники 11 лет ждем. Никак. Я не знаю, может плагины к IDE есть какие-нибудь, копмпонентов же много.

[Человек_Борща]

с чего вы тогда взяли что там cdecl? А не stdcall? или fastcall или иной калл...

[WhiskasTM]

Посмотрел, это __thiscall. Переменная класса в ecx, всё остальное через стек. cdecl ближе всего показался. Ну и тут же сразу всплыло: http://www.programmersforum.ru/showp...09&postcount=4

Понятно вообщем, спасибо, closed.