mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-05 08:18:12 +02:00
53ffda14f3
* create short jumps also for asm blocks, thanks to Sergej Gorelkin for the patch, resolves #11638 git-svn-id: trunk@12043 -
16 lines
190 B
ObjectPascal
16 lines
190 B
ObjectPascal
{ %cpu=i386 }
|
|
{$goto on}
|
|
label
|
|
l1,l2;
|
|
begin
|
|
if PtrInt(@l2-@l1)>3 then
|
|
halt(1);
|
|
halt(0);
|
|
asm
|
|
l1:
|
|
JMP l1 // E9 01000000 instead EB 01
|
|
NOP
|
|
l2:
|
|
end;
|
|
end.
|