我有一些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;