mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-06 21:07:58 +02:00
14 lines
149 B
ObjectPascal
14 lines
149 B
ObjectPascal
{ %cpu=i386,x86_64 }
|
|
{ %norun }
|
|
{ %opt=-Rintel -O4 -a }
|
|
|
|
function foo ( w : word):byte; assembler;
|
|
asm
|
|
mov ax, w
|
|
|
|
end;
|
|
|
|
begin
|
|
foo(3);
|
|
end.
|