paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-23 07:31:20 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fixed code generation of indirect far calls and jumps on the i8086 from the

Browse Source 
inline assembler

git-svn-id: trunk@31946 -
This commit is contained in:
nickysn 2015-10-05 02:19:32 +00:00
parent b3c2765da9
commit 910003848c
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
compiler/x86/rax86.pas
View File

@ -1187,7 +1187,10 @@ begin
asize:=OT_BITS16;
OS_32,OS_S32 :
{$ifdef i8086}
asize:=OT_BITS16;
if siz=S_FAR then
asize:=OT_FAR
else
asize:=OT_BITS16;
{$else i8086}
asize:=OT_BITS32;
{$endif i8086}