Repository URL to install this package:
Version:
3.0.0 ▾
|
{ %cpu=x86_64 }
{ %opt=-Cg }
{$asmmode intel}
var
val: qword; public;
Function Test: QWord; Assembler; NoStackFrame;
Asm
{$ifdef win64}
MOV RAX, [RIP+Val]
{$else}
mov RAX, [val wrt ..gotpcrel]
mov RAX, [RAX]
{$endif}
End;
BEGIN
Val := $12345678901;
if test<>$12345678901 then
halt(1);
END.