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 / webtbs / tw10641.pp
Size: Mime:
{ %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.