5

OpenGLのサンプルソースコードがいくつかあり、64ビットバージョンをコンパイルしたかったのですが（Delphi XE2を使用）、コンパイルに失敗するASMコードがいくつかあり、ASMについては何も知りません。以下のコードは、失敗した行に2つのエラーメッセージを表示します...

// 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;
4

2 に答える 2

13

この手順では、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;
于 2012-05-22T04:56:19.923 に答える
3

64ビットはポインタレジスタの名前が異なり、違いが渡されます。インライン アセンブラー関数への最初の 4 つのパラメーターは、それぞれ 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}
于 2012-05-22T14:37:53.050 に答える