mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-12 22:49:34 +02:00
34fc366d64
* test/tcg1.pp: rewrote without PIC, was having the same issue (GOT off by 1), additionally Intel syntax part won't compile anyway. This test is about push/pop encoding, not about PIC. git-svn-id: trunk@21811 -
41 lines
575 B
ObjectPascal
41 lines
575 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_+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.
|