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

+ Forgot to patch linux.pp

Browse Source
This commit is contained in:
michael 2002-03-06 11:34:04 +00:00
parent 312902b36a
commit 1f2801b1ab
1 changed files with 4 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
rtl/unix/linux.pp
View File

@ -300,17 +300,10 @@ Function FStat(var F:File;Var Info:stat):Boolean;
Function Lstat(Filename: PathStr;var Info:stat):Boolean;
Function StatFS(Path:Pathstr;Var Info:tstatfs):Boolean;
Function StatFS(Fd: Longint;Var Info:tstatfs):Boolean;
{$ifdef bsd}
Function Fcntl(Fd:longint;Cmd:longint):longint;
Procedure Fcntl(Fd:longint;Cmd:longint;Arg:Longint);
Function Fcntl(var Fd:Text;Cmd:longint):longint;
Procedure Fcntl(var Fd:Text;Cmd:longint;Arg:Longint);
{$else}
Function Fcntl(Fd:longint;Cmd:Integer):integer;
Procedure Fcntl(Fd:longint;Cmd:Integer;Arg:Longint);
Function Fcntl(var Fd:Text;Cmd:Integer):integer;
Procedure Fcntl(var Fd:Text;Cmd:Integer;Arg:Longint);
{$endif}
Function Dup(oldfile:longint;var newfile:longint):Boolean;
Function Dup(var oldfile,newfile:text):Boolean;
Function Dup(var oldfile,newfile:file):Boolean;
@ -1138,20 +1131,12 @@ end;
{$endif}
{$ifdef BSD}
Function Fcntl(var Fd:Text;Cmd:longint):longint;
{$else}
Function Fcntl(var Fd:Text;Cmd:integer):integer;
{$endif}
begin
Fcntl := Fcntl(textrec(Fd).handle, Cmd);
end;
{$ifdef BSD}
Procedure Fcntl(var Fd:Text;Cmd,Arg:Longint);
{$else}
Procedure Fcntl(var Fd:Text;Cmd:Integer;Arg:Longint);
{$endif}
begin
Fcntl(textrec(Fd).handle, Cmd, Arg);
@ -3047,7 +3032,10 @@ End.
{
$Log$
Revision 1.20 2002-01-02 12:22:54 marco
Revision 1.21 2002-03-06 11:34:04 michael
+ Forgot to patch linux.pp
Revision 1.20 2002/01/02 12:22:54 marco
* Removed ifdef arround getepoch.
Revision 1.19 2001/12/26 21:03:57 peter