paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-11 22:06:40 +02:00
Code Issues Packages Projects Releases Wiki Activity

Remove explicit far modifier to fix msdos compilation

Browse Source 
git-svn-id: trunk@38765 -
This commit is contained in:
pierre 2018-04-13 22:19:34 +00:00
parent b917533a9f
commit 1e1603425d
3 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
tests/test/units/dos/tfattr.pp
View File

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

2
tests/test/units/objects/testobj.pp
View File

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

2
tests/test/units/objects/testobj1.pp
View File

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