delphi / asm代码与64位不兼容?
-
12-12-2019 - |
题
我有一个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(交换0th和第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;
. 其他提示
64位对指针寄存器具有不同的名称,并且它被传递差异。 对内联汇编程序功能的前四个参数分别通过RCX,RDX,R8和R9传递
EBX -> RBX
EAX -> RAX
EDX -> RDX
.
试试这个
procedure CopySwapPixel(const Source, Destination: Pointer);
{$IFDEF CPUX64}
asm
mov al,[rcx+0]
mov ah,[rcx+1]
mov [rdx+2],al
mov [rdx+1],ah
mov al,[rcx+2]
mov ah,[rcx+3]
mov [rdx+0],al
mov [rdx+3],ah
end;
{$ELSE}
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;
{$ENDIF}
. 不隶属于 StackOverflow