* make near and far procedures/procvars incompatible with each other

git-svn-id: trunk@38645 -

compiler/defcmp.pas

@@ -2329,7 +2329,7 @@ implementation
          if checkincompatibleuniv then
            include(pa_comp,cpo_warn_incompatible_univ);
          { check return value and options, methodpointer is already checked }
-         po_comp:=[po_interrupt,po_iocheck,po_varargs];
+         po_comp:=[po_interrupt,po_iocheck,po_varargs,po_far];
          { check static only if we compare method pointers }
          if def1.is_methodpointer and def2.is_methodpointer then
            include(po_comp,po_staticmethod);