paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-10-30 06:51:40 +01:00
Code Issues Packages Projects Releases Wiki Activity

* use 16-bit operand types for call/jmp immediate on i8086 in taicpu.create_ot

Browse Source 
git-svn-id: trunk@30563 -
This commit is contained in:
nickysn 2015-04-12 23:53:15 +00:00
parent a25a906d56
commit fe30b53e95
1 changed files with 8 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
compiler/x86/aasmcpu.pas
View File

@ -1234,10 +1234,18 @@ implementation
) then ) then
ot:=OT_IMM8 or OT_SHORT ot:=OT_IMM8 or OT_SHORT
else else
{$ifdef i8086}
ot:=OT_IMM16 or OT_NEAR;
{$else i8086}
ot:=OT_IMM32 or OT_NEAR; ot:=OT_IMM32 or OT_NEAR;
{$endif i8086}
end end
else else
{$ifdef i8086}
ot:=OT_IMM16 or OT_NEAR;
{$else i8086}
ot:=OT_IMM32 or OT_NEAR; ot:=OT_IMM32 or OT_NEAR;
{$endif i8086}
end; end;
end; end;
top_local : top_local :