paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-11 19:48:49 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ test lea with non-native address sizes (16-bit on i386, 32-bit on x86_64)

Browse Source 
git-svn-id: trunk@37410 -
This commit is contained in:
nickysn 2017-10-06 15:46:03 +00:00
parent 92a52a9f4d
commit 8ba4de3885
2 changed files with 57 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
tests/test/tlea1.pp
View File

@ -3,6 +3,7 @@
program tlea1;
{$ASMMODE intel}
{$define 16BITADDRSUPPORT}
procedure Fail;
begin

56
tests/test/tlea2.pp
View File

@ -3,6 +3,7 @@
program tlea2;
{$ASMMODE intel}
{$define 32BITADDRSUPPORT}
procedure Fail;
begin
@ -58,9 +59,64 @@ begin
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.