mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-11 11:38:01 +02:00
30 lines
589 B
ObjectPascal
30 lines
589 B
ObjectPascal
{ %cpu=i386,x86_64 }
|
|
procedure p;assembler;nostackframe;
|
|
asm
|
|
iret
|
|
iretw
|
|
{$ifdef cpux86_64}
|
|
iretq
|
|
{$endif cpux86_64}
|
|
end;
|
|
|
|
|
|
const
|
|
test_expected : array[0..2{$ifdef cpux86_64}+2{$endif cpux86_64}] of byte = (
|
|
$CF,$66,$CF{$ifdef cpux86_64},$48,$cf{$endif cpux86_64});
|
|
|
|
var
|
|
i : longint;
|
|
|
|
|
|
begin
|
|
for i:=0 to high(test_expected) do
|
|
if test_expected[i]<>pbyte(@p)[i] then
|
|
begin
|
|
writeln('mismatch at offset $',hexstr(i,4), ', expected=$',
|
|
hexstr(test_expected[i],2),' actual=$',hexstr(pbyte(@p)[i],2));
|
|
halt(1);
|
|
end;
|
|
writeln('ok');
|
|
end.
|