Delphi 中的快速 Swap64 函数答案

【问题标题】：Fast Swap64 Function in DelphiDelphi 中的快速 Swap64 函数
【发布时间】：2015-11-07 18:09:24
【问题描述】：

我正在使用以下函数来交换（未）有符号的 64 位整数值：

function Swap64(I: Int64): Int64;
begin
  Int64Rec(Result).Bytes[0] := Int64Rec(I).Bytes[7];
  Int64Rec(Result).Bytes[1] := Int64Rec(I).Bytes[6];
  Int64Rec(Result).Bytes[2] := Int64Rec(I).Bytes[5];
  Int64Rec(Result).Bytes[3] := Int64Rec(I).Bytes[4];
  Int64Rec(Result).Bytes[4] := Int64Rec(I).Bytes[3];
  Int64Rec(Result).Bytes[5] := Int64Rec(I).Bytes[2];
  Int64Rec(Result).Bytes[6] := Int64Rec(I).Bytes[1];
  Int64Rec(Result).Bytes[7] := Int64Rec(I).Bytes[0];
end;

如何在 ASM 中做同样的事情以使其更快？

【问题讨论】：

无论哪种情况，都可以使用bswap 指令。

标签： delphi assembly swap

【解决方案1】：

您可以使用bswap 指令交换字节。对于 32 位代码，您需要一次交换 32 位字节，两次使用 bswap。对于 64 位代码，您可以直接对 64 位寄存器进行操作，并使用一次 bswap 交换所有 8 个字节。

这是一个适用于 32 位和 64 位目标的函数：

function ByteSwap64(Value: Int64): Int64;
asm
{$IF Defined(CPUX86)}
  mov    edx, [ebp+$08]
  mov    eax, [ebp+$0c]
  bswap  edx
  bswap  eax
{$ELSEIF Defined(CPUX64)}
  mov    rax, rcx
  bswap  rax
{$ELSE}
{$Message Fatal 'ByteSwap64 has not been implemented for this architecture.'}
{$ENDIF}
end;

我不能说这个功能是否会带来任何明显的性能优势。在优化代码之前，您应该通过分析和计时代码来识别瓶颈。

【讨论】：

CPUX86 指令是在 Delphi XE2 中引入的，所以CPU386 更可取。
@user 这真的取决于。如果您不需要支持这样的旧版本，那么我有它就可以了。提问者没有说明版本。如果提问者使用的是 XE2 之前的版本，则根本不需要条件。
我对 Delphi ASM 一点也不熟悉，但你不应该在接触之前将这些寄存器压入堆栈吗？或者一个函数在启动时会做一个完整的寄存器推送吗？
@Blindy Delphi asm 不是问题。它是定义 ABI 的平台。不，这些寄存器是易失的。它们用于将值返回给调用者。您在 Serg 的回答中看到相同的代码。
我并不是在暗示你错了，只是想知道。据我所知，EDX 用于正常的代码生成，您可能会在没有警告的情况下覆盖它（当然，除非函数介绍首先将其推送到堆栈）。

【解决方案2】：

对于 32 位编译器：

function Swap64(I: Int64): Int64;
asm
        MOV     EDX,I.Int64Rec.Lo
        BSWAP   EDX
        MOV     EAX,I.Int64Rec.Hi
        BSWAP   EAX
end;

【讨论】：