paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-23 03:29:41 +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;
oldexit : codepointer;
procedure MyExit;far;
procedure MyExit;
begin
ExitProc := OldExit;
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 *)
(* on the type of error encountered. *)
(*************************************************************************)
Procedure StreamErrorProcedure(Var S: TStream); FAR;
Procedure StreamErrorProcedure(Var S: TStream);
Begin
If S.Status = StError then
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 *)
(* on the type of error encountered. *)
(*************************************************************************)
Procedure StreamErrorProcedure(Var S: TStream); FAR;
Procedure StreamErrorProcedure(Var S: TStream);
Begin
If S.Status = StError then
Begin