mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-18 19:19:24 +02:00
29 lines
344 B
ObjectPascal
29 lines
344 B
ObjectPascal
{ Checks for qualified variable support
|
|
in assembler reader }
|
|
program test;
|
|
|
|
{$ifdef cpui386}
|
|
{$asmmode intel}
|
|
{$endif}
|
|
|
|
var l: longint;
|
|
|
|
begin
|
|
{$ifdef cpui386}
|
|
asm
|
|
mov test.l, 5
|
|
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.
|