mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-07 06:28:55 +02:00
23 lines
266 B
ObjectPascal
23 lines
266 B
ObjectPascal
{ %CPU=i386 }
|
|
{$asmmode intel}
|
|
const climbsize = 4;
|
|
|
|
procedure test;
|
|
var
|
|
value : dword;
|
|
begin
|
|
asm
|
|
XOR EAX,EAX
|
|
MOV EDI,1;
|
|
LEA EAX,[EAX + EDI*climbsize]
|
|
MOV value,EAX
|
|
end;
|
|
if value<>4 then
|
|
halt(1);
|
|
end;
|
|
|
|
begin
|
|
test;
|
|
writeln('ok');
|
|
end.
|