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 / test / tasmread.pp
Size: Mime:
{ Checks for qualified variable support
   in assembler reader }
program test;

{$ifdef cpui386}
{$asmmode intel}
{$endif}

var l: longint;

begin
{$ifdef cpui386}
  asm
{$ifndef FPC_PIC}
     mov test.l, 5
{$else FPC_PIC}
     call @@LPIC
@@LPIC:
     pop ecx
{$ifdef darwin}
     mov [test.l-@@LPIC+ecx],5
{$else darwin}
     add ecx, _GLOBAL_OFFSET_TABLE_+1
     mov [test.l + ecx],5
{$endif darwin}
{$endif FPC_PIC}
  end;
{$endif cpui386}
{$ifdef cpu68k}
  asm
     move.l  test.l,d0
  end;
{$endif cpu68k}
{$ifdef arm}
  asm
    ld  r0,test.l
  end;
{$endif arm}

end.