summaryrefslogtreecommitdiff
path: root/fpcsrc/tests/webtbs/tw3619.pp
blob: d09cbdc7df97850048678884628e48dde0e2f396 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
{ %cpu=i386 }

{ Source provided for Free Pascal Bug Report 3619 }
{ Submitted by "Thomas Schatzl" on  2005-01-31 }
{ e-mail:  }
program Project2;

{$asmmode intel}

procedure x(bpp : longint); assembler;
asm
  MOV BL,4
  SUB bl, byte ptr [bpp]
end;

begin
end.