Why Gemfury? Push, build, and install  RubyGems npm packages Python packages Maven artifacts PHP packages Go Modules Debian packages RPM packages NuGet packages

Repository URL to install this package:

Details    
fpc-src / usr / share / fpcsrc / 3.0.0 / tests / webtbf / tw22665a.pp
Size: Mime:
{ %target=win64 }
{ %cpu=x86_64 }
{ %fail }

{$asmmode intel}

var
  val: qword;

Function Test: QWord; Assembler; NoStackFrame;
Asm
 { win64 doesn't support a GOT }
 mov RAX, [val wrt ..gotpcrel]
 mov RAX, [RAX]
End;

BEGIN
  Val := $12345678901;
  if test<>$12345678901 then
    halt(1);
END.