mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-08 21:08:30 +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 -
13 lines
140 B
ObjectPascal
13 lines
140 B
ObjectPascal
{ %CPU=i386,x86_64 }
|
|
{ %fail }
|
|
|
|
{ Pop CS should produce an error on i386 and x86_64 }
|
|
|
|
{$asmmode att}
|
|
|
|
begin
|
|
asm
|
|
popl %cs
|
|
end;
|
|
end.
|