mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2026-02-24 18:38:39 +01:00
19 lines
184 B
ObjectPascal
19 lines
184 B
ObjectPascal
{ %CPU=i386 }
|
|
|
|
function x : longint;saveregisters;
|
|
begin
|
|
x:=34;
|
|
end;
|
|
|
|
var
|
|
y : longint;
|
|
begin
|
|
asm
|
|
movl $15,%eax
|
|
end;
|
|
y:=x;
|
|
Writeln(y);
|
|
if y<>34 then
|
|
halt(1);
|
|
end.
|