Delphi/ASM 代码与 64 位不兼容?

问题描述

我有一些 OpenGL 的示例源代码，我想编译一个 64 位版本(使用 Delphi XE2)但是有一些 ASM 代码无法编译，我对 ASM 一无所知.这是下面的代码，我将两条错误消息放在失败的行上...

I have some sample source code for OpenGL, I wanted to compile a 64bit version (using Delphi XE2) but there's some ASM code which fails to compile, and I know nothing about ASM. Here's the code below, and I put the two error messages on the lines which fail...

// Copy a pixel from source to dest and Swap the RGB color values
procedure CopySwapPixel(const Source, Destination: Pointer);
asm
  push ebx //[DCC Error]: E2116 Invalid combination of opcode and operands
  mov bl,[eax+0]
  mov bh,[eax+1]
  mov [edx+2],bl
  mov [edx+1],bh
  mov bl,[eax+2]
  mov bh,[eax+3]
  mov [edx+0],bl
  mov [edx+3],bh
  pop ebx //[DCC Error]: E2116 Invalid combination of opcode and operands
end;

推荐答案

此过程将 ABGR 字节顺序交换为 ARGB，反之亦然.
在 32 位中，此代码应该可以完成所有工作:

This procedure swaps ABGR byte order to ARGB and vice versa.
In 32bit this code should do all the job:

mov ecx, [eax]  //ABGR from src
bswap ecx       //RGBA
ror ecx, 8      //ARGB
mov [edx], ecx  //to dest

X64 的正确代码是

mov ecx, [rcx]  //ABGR from src
bswap ecx       //RGBA
ror ecx, 8      //ARGB
mov [rdx], ecx  //to dest

另一种选择 - 制作纯 Pascal 版本，它更改数组表示中的字节顺序:0123 到 2103(交换第 0 个和第 2 个字节).

Yet another option - make pure Pascal version, which changes order of bytes in array representation: 0123 to 2103 (swap 0th and 2th bytes).

procedure Swp(const Source, Destination: Pointer);
var
  s, d: PByteArray;
begin
  s := PByteArray(Source);
  d := PByteArray(Destination);
  d[0] := s[2];
  d[1] := s[1];
  d[2] := s[0];
  d[3] := s[3];
end;

这篇关于Delphi/ASM 代码与 64 位不兼容?的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持！