mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-10-14 20:28:37 +02:00
ab9d68ae3e
* abort if there's a warning (warnings for wrong/dangerous pic
will be added in a later commit)
git-svn-id: trunk@22239 -
31 lines
442 B
ObjectPascal
31 lines
442 B
ObjectPascal
{ %cpu=x86_64 }
|
|
{ %opt=-vw -Sew }
|
|
|
|
{$ifdef windows}
|
|
{$imagebase $10000}
|
|
{$endif}
|
|
var
|
|
test : dword;
|
|
test2 : dword;
|
|
begin
|
|
test:=$deadbeef;
|
|
test2:=$deadbeef;
|
|
ASM
|
|
MOVL $16,%EAX
|
|
LEA .LLT(%RIP),%RBX
|
|
JMP (%RBX,%RAX)
|
|
.balign 16
|
|
.LLT:
|
|
.quad .L3,.L2,.L1
|
|
.L2:
|
|
MOVL $12341234,test2(%RIP)
|
|
JMP .L3
|
|
.L1:
|
|
MOVL $0,test(%RIP)
|
|
.L3:
|
|
END;
|
|
if (test<>0) or (test2<>$deadbeef) then
|
|
halt(1);
|
|
writeln('ok');
|
|
end.
|