mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-07 08:48:08 +02:00
23 lines
275 B
ObjectPascal
23 lines
275 B
ObjectPascal
{ %cpu=x86_64 }
|
|
{$asmmode intel}
|
|
procedure test;
|
|
var
|
|
TestVar : Int64;
|
|
begin
|
|
TestVar:=1234123412341234;
|
|
asm
|
|
MOV RAX,0
|
|
LEA RBX,TestVar
|
|
MOV QWORD [RBX],RAX
|
|
end;
|
|
writeln(TestVar);
|
|
if TestVar<>0 then
|
|
halt(1);
|
|
end;
|
|
|
|
begin
|
|
test;
|
|
writeln('ok');
|
|
end.
|
|
|