Quellcode durchsuchen

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

git-svn-id: trunk@31946 -

nickysn vor 10 Jahren
Ursprung
Commit
910003848c
1 geänderte Dateien mit 4 neuen und 1 gelöschten Zeilen
  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}