fpcsrc/tests/webtbs/tw0919.pp


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18

{ %cpu=i386 }
{ %OPT=-Cg- }

var i:integer;
{$asmmode intel}
{ "mov i,1"
   is like
  "mov word ptr [i],1"
  or
  movw i,$1  in ATT syntax }

begin
 asm
  mov i, 1
 end;
  if i <> 1 then
    halt(1);
end.