mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-08 19:08:07 +02:00
18 lines
262 B
ObjectPascal
18 lines
262 B
ObjectPascal
{ %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.
|