Delphi / ASM代码与64bit不兼容？

发布时间：2020-12-15 04:21:57 所属栏目：大数据来源：网络整理

导读：我有一些OpenGL的示例源代码,我想编译64位版本(使用Delphi XE2)但是有一些ASM代码无法编译,我对ASM一无所知.这是下面的代码,我将两条错误消息放在失败的行上…… // Copy a pixel from source to dest and Swap the RGB color valuesprocedure CopySwapPixel

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

// 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位这个代码应该完成所有工作：

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个字节).

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;

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!