Remove explicit far modifier to fix msdos compilation

git-svn-id: trunk@38765 -

tests/test/units/dos/tfattr.pp

@@ -303,7 +303,7 @@ var
  f: file;
  oldexit : codepointer;
 
-  procedure MyExit;far;
+  procedure MyExit;
    begin
      ExitProc := OldExit;
      RmDir(TestDir);

tests/test/units/objects/testobj.pp

@@ -14,7 +14,7 @@ const
 (* stream. Will Terminate executing program, as well as display info     *)
 (* on the type of error encountered.                                     *)
 (*************************************************************************)
-Procedure StreamErrorProcedure(Var S: TStream); FAR;
+Procedure StreamErrorProcedure(Var S: TStream);
 Begin
  If S.Status = StError then
  Begin

tests/test/units/objects/testobj1.pp

@@ -14,7 +14,7 @@ const
 (* stream. Will Terminate executing program, as well as display info     *)
 (* on the type of error encountered.                                     *)
 (*************************************************************************)
-Procedure StreamErrorProcedure(Var S: TStream); FAR;
+Procedure StreamErrorProcedure(Var S: TStream);
 Begin
  If S.Status = StError then
  Begin