Question

请我使用这个GCC内联汇编程序代码

int   src = 0;
dword n;
__asm(
            "sar %%cl,%%edx"
            : "=d" (n) // saves in eax,edx
            : "c" (src), "d" (n) // the inputs
            );

我的delphi尝试是：

asm
mov ecx, &src
mov edx, &n
sar cl,edx
mov eax,edx
end;

请这是正确的吗？

Answer 1

内联汇编程序在Delphi中的工作方式与在GCC中的工作方式不同。对于初学者，在Delphi中没有相同类型的宏和模板支持，因此如果要使用declare-once通用汇编程序，则必须将其声明为函数：

function ShiftArithmeticRight(aShift: Byte; aValue: LongInt): LongInt;
{$IFDEF WIN64}
asm
  sar edx,cl
  mov eax,edx
end;
{$ELSE}
{$IFDEF CPU386}
asm
  mov cl,al
  sar edx,cl
  mov eax,edx
end;
{$ELSE}
begin
  if aValue < 0 then
    Result := not (not aValue shr aShift)
  else
    Result := aValue shr aShift;
end;
{$ENDIF}
{$ENDIF}

在Delphi中，内联汇编程序必须在使用它的地方实现，并且只支持32位。在这样的asm块中，您可以自由使用EAX，ECX，EDX以及周围代码中的任何标识符。例如：

var
  lValue: LongInt;
  lShift: Byte;
begin
  // Enter pascal code here
  asm
    mov cl,lShift
    sar lValue,cl
  end;
  // Enter pascal code here
end;

将GCC内联汇编程序转换为delphi内联汇编程序

1 个答案: