mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-05 16:47:53 +02:00
28 lines
341 B
ObjectPascal
28 lines
341 B
ObjectPascal
{ %CPU=i386 }
|
|
program test;
|
|
{$INLINE ON}
|
|
{$ASMMODE ATT}
|
|
|
|
var
|
|
j : longint;
|
|
|
|
procedure Tst(var j : longint); assembler;inline;
|
|
var
|
|
i : longint;
|
|
asm
|
|
movl j,%ecx
|
|
movl (%ecx),%eax
|
|
movl $5,i
|
|
addl i,%eax
|
|
movl %eax,(%ecx)
|
|
end;
|
|
|
|
begin
|
|
j:=5;
|
|
Tst(j);
|
|
if (j<>10) then
|
|
begin
|
|
halt(1);
|
|
end;
|
|
end.
|