fpcsrc/tests/webtbf/tw0893.pp


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

{ %fail }

{ %CPU=i386 }
{$asmmode intel}
type
    BugObject = object
       Fld: word;
       procedure WontCompile;
    end;

procedure BugObject.WontCompile;
begin
  asm
    xor ax, ax
    mov fld, ax
  end;
end;

begin
end.