Код 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 Byte в ARGB и наоборот.
В 32Bit этот код должен сделать всю работу:
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;
. Другие советы
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}
.