mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2026-01-11 05:01:30 +01:00
24 lines
287 B
ObjectPascal
24 lines
287 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}
|
|
|
|
end.
|