+ added trefaddr.addr_far for emitting far calls

git-svn-id: trunk@24826 -

compiler/cgbase.pas

@@ -99,6 +99,7 @@ interface
          {$ENDIF}
          {$IFDEF i8086}
          ,addr_dgroup      // the data segment group
+         ,addr_far         // used for emitting 'call far' or 'jmp far' instructions
          {$ENDIF}
          );
 

compiler/x86/agx86nsm.pas

@@ -382,7 +382,10 @@ interface
                   asmwrite('dword ');
 {$endif i386}
 {$ifdef i8086}
-                  asmwrite('word ');
+                  if o.ref^.refaddr=addr_far then
+                    asmwrite('far ')
+                  else
+                    asmwrite('word ');
 {$endif i8086}
                   if assigned(o.ref^.symbol) then
                    begin