Explorar o código

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

git-svn-id: trunk@31946 -

nickysn %!s(int64=10) %!d(string=hai) anos
pai
achega
910003848c
Modificáronse 1 ficheiros con 4 adicións e 1 borrados
  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}