mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-14 07:59:27 +02:00
17 lines
223 B
ObjectPascal
17 lines
223 B
ObjectPascal
{ %cpu=x86_64 }
|
|
{ %opt=Anasm}
|
|
{$ASMMODE INTEL}
|
|
const
|
|
value : int64 =$1234567898765432;
|
|
|
|
function Test:Int64;assembler;
|
|
asm
|
|
mov RAX, $1234567898765432
|
|
end;
|
|
|
|
begin
|
|
if Test<>value then
|
|
halt(1);
|
|
writeln('ok');
|
|
end.
|