mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-07 15:28:08 +02:00
e58bad8eef
warning (on the i8086 target) or an error (on i386 and x86_64) when this instruction is used (because it only works on 8086 and 8088 CPUs) git-svn-id: trunk@37514 -
14 lines
139 B
ObjectPascal
14 lines
139 B
ObjectPascal
{ %CPU=i8086 }
|
|
{ %OPT=-Sew }
|
|
{ %fail }
|
|
|
|
{ Pop CS should produce a warning on i8086 }
|
|
|
|
{$asmmode intel}
|
|
|
|
begin
|
|
asm
|
|
pop cs
|
|
end;
|
|
end.
|