Ver código fonte

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

git-svn-id: trunk@31946 -

nickysn 9 anos atrás
pai
commit
910003848c
1 arquivos alterados com 4 adições e 1 exclusões
  1. 4 1
      compiler/x86/rax86.pas

+ 4 - 1
compiler/x86/rax86.pas

@@ -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}