GetParam:function(index:word; value:pointer):cardinal;
Если попытаться тупо её обернуть через WrapDelphiCall, то получим большой и толстый облом. Я её отдельно завернул вот как:
inline cardinal GetParam(WORD index, void* value)
{
DWORD dwIndex = (DWORD) MAKELONG(index, 0);
__asm mov eax, dwIndex;
__asm mov edx, value;
__asm mov ecx, this;
__asm call dword ptr [ecx].pGetParam;
}
Вопрос: корректно ли такое решение?
А вот интересно, почему исходники codegen и make_xxx для PocketPC не выложены на SVN?
Поиск
Друзья
Администрация