我有一些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位这个代码应该完成所有工作：
在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;