Procházet zdrojové kódy

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

git-svn-id: trunk@31946 -

nickysn před 10 roky
rodič
revize
910003848c
1 změnil soubory, kde provedl 4 přidání a 1 odebrání
  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}