mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-05 14:24:24 +02:00
123 lines
2.5 KiB
ObjectPascal
123 lines
2.5 KiB
ObjectPascal
{ %cpu=x86_64 }
|
|
|
|
program tlea2;
|
|
|
|
{$ASMMODE intel}
|
|
{$define 32BITADDRSUPPORT}
|
|
|
|
procedure Fail;
|
|
begin
|
|
Writeln('Error!');
|
|
Halt(1);
|
|
end;
|
|
|
|
procedure TestO64A64;
|
|
var
|
|
res: QWord;
|
|
begin
|
|
Writeln('Testing LEA with 64-bit operand size and 64-bit address size...');
|
|
asm
|
|
mov rcx, 0deadbeefdeadbeefh
|
|
mov rdi, 0abcdefedcbabcdefh
|
|
mov rbx, 05566778899aabbcch
|
|
lea rbx, [rcx + rdi * 8 + 12345678h]
|
|
mov res, rbx
|
|
end ['RBX', 'RCX', 'RDI'];
|
|
if res <> $3D1D3E5E4E4084DF then
|
|
Fail;
|
|
end;
|
|
|
|
procedure TestO32A64;
|
|
var
|
|
res: QWord;
|
|
begin
|
|
Writeln('Testing LEA with 32-bit operand size and 64-bit address size...');
|
|
asm
|
|
mov rcx, 0deadbeefdeadbeefh
|
|
mov rdi, 0abcdefedcbabcdefh
|
|
mov rbx, 05566778899aabbcch
|
|
lea ebx, [rcx + rdi * 8 + 12345678h]
|
|
mov res, rbx
|
|
end ['RBX', 'RCX', 'RDI'];
|
|
if res <> $4E4084DF then
|
|
Fail;
|
|
end;
|
|
|
|
procedure TestO16A64;
|
|
var
|
|
res: QWord;
|
|
begin
|
|
Writeln('Testing LEA with 16-bit operand size and 64-bit address size...');
|
|
asm
|
|
mov rcx, 0deadbeefdeadbeefh
|
|
mov rdi, 0abcdefedcbabcdefh
|
|
mov rbx, 05566778899aabbcch
|
|
lea bx, [rcx + rdi * 8 + 12345678h]
|
|
mov res, rbx
|
|
end ['RBX', 'RCX', 'RDI'];
|
|
if res <> $5566778899AA84DF then
|
|
Fail;
|
|
end;
|
|
|
|
{$ifdef 32BITADDRSUPPORT}
|
|
procedure TestO64A32;
|
|
var
|
|
res: QWord;
|
|
begin
|
|
Writeln('Testing LEA with 64-bit operand size and 32-bit address size...');
|
|
asm
|
|
mov rcx, 0deadbeefdeadbeefh
|
|
mov rdi, 0abcdefedcbabcdefh
|
|
mov rbx, 05566778899aabbcch
|
|
lea rbx, [ecx + edi * 8 + 12345678h]
|
|
mov res, rbx
|
|
end ['RBX', 'RCX', 'RDI'];
|
|
if res <> $4E4084DF then
|
|
Fail;
|
|
end;
|
|
|
|
procedure TestO32A32;
|
|
var
|
|
res: QWord;
|
|
begin
|
|
Writeln('Testing LEA with 32-bit operand size and 32-bit address size...');
|
|
asm
|
|
mov rcx, 0deadbeefdeadbeefh
|
|
mov rdi, 0abcdefedcbabcdefh
|
|
mov rbx, 05566778899aabbcch
|
|
lea ebx, [ecx + edi * 8 + 12345678h]
|
|
mov res, rbx
|
|
end ['RBX', 'RCX', 'RDI'];
|
|
if res <> $4E4084DF then
|
|
Fail;
|
|
end;
|
|
|
|
procedure TestO16A32;
|
|
var
|
|
res: QWord;
|
|
begin
|
|
Writeln('Testing LEA with 16-bit operand size and 32-bit address size...');
|
|
asm
|
|
mov rcx, 0deadbeefdeadbeefh
|
|
mov rdi, 0abcdefedcbabcdefh
|
|
mov rbx, 05566778899aabbcch
|
|
lea bx, [ecx + edi * 8 + 12345678h]
|
|
mov res, rbx
|
|
end ['RBX', 'RCX', 'RDI'];
|
|
if res <> $5566778899AA84DF then
|
|
Fail;
|
|
end;
|
|
{$endif 32BITADDRSUPPORT}
|
|
|
|
begin
|
|
TestO64A64;
|
|
TestO32A64;
|
|
TestO16A64;
|
|
{$ifdef 32BITADDRSUPPORT}
|
|
TestO64A32;
|
|
TestO32A32;
|
|
TestO16A32;
|
|
{$endif 32BITADDRSUPPORT}
|
|
Writeln('Success!');
|
|
end.
|