mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-12-11 08:30:32 +01:00
41 lines
573 B
ObjectPascal
41 lines
573 B
ObjectPascal
{ 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_
|
|
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.
|