summaryrefslogtreecommitdiff
path: root/fpcsrc/tests/webtbs/tw3931a.pp
blob: 8dfb4ec91af9273177dd6019ff95aeec91d43ba4 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
{ %cpu=i386 }
{ %OPT=-Cg- }

{$asmmode intel}

procedure SmallForwardMove_3; assembler;
asm
jmp dword ptr [@@FwdJumpTable+ecx*4]
nop {Align Jump Table}
@@Done:
@@FwdJumpTable:
dd @@Done {Removes need to test for zero size move}
end;

begin
end.