* set the po_far flag by default in far code memory models

git-svn-id: trunk@24846 -

compiler/symdef.pas

@@ -3870,6 +3870,10 @@ implementation
          proctypeoption:=potype_none;
          proccalloption:=pocall_none;
          procoptions:=[];
+{$ifdef i8086}
+         if current_settings.x86memorymodel in x86_far_code_models then
+           procoptions:=procoptions+[po_far];
+{$endif i8086}
          returndef:=voidtype;
          savesize:=sizeof(pint);
          callerargareasize:=0;