转换一个C++内联汇编函数的德尔福内联汇编函数

Question

请怎么会这样C++函数转换为德尔福：

int To_Asm_Fnc(dword Amem, dword Al, dword Ac) { 
int b = 0; 
    asm ("push %%ecx; \ 
      call %%eax; \ 
      pop %%ecx;" 
     : "=Al" (b) /* output value */ 
     : "Al" (mem), "Ac" (Al), "d" (Ac) /* input value */ 
     ); 
    return b; 
} 

，这是我的德尔福尝试

Function To_Asm_Fnc(Amem,Al,Ac:dword):Integer; 
var 
b:Integer; 
begin 
Result:=0; 
b:=0; 
//******* 
{ i really didn't get it as in the c++ code } 
//******* 
Result:=b; 
end; 

千恩万谢

Answer 1

看起来这个函数接受指向另一个函数的指针，并设置参数

function To_Asm_Fnc(Amem: Pointer; _Al, _Ac: cardinal): integer; 
asm 
    // x68 only!; paramateres are passed differently in x64 
    // inputs : "Al" (mem), "Ac" (Al), "d" (Ac) /* input value */ 
    // amem is already in eax 
    // _al is passed in edx and _ac in ecx; but the code expects them reversed 
    xchg edx, ecx 
    push ecx 
    call eax 
    pop ecx 
    // result is already in eax and delphi returns the result in eax 
    // outputs : "=Al" (b) /* output value */ 
end;