From 1f2801b1ab73da2b8bca9b929b3ffb621e012810 Mon Sep 17 00:00:00 2001
From: michael <michael@freepascal.org>
Date: Wed, 6 Mar 2002 11:34:04 +0000
Subject: [PATCH] + Forgot to patch linux.pp

---
 rtl/unix/linux.pp | 20 ++++----------------
 1 file changed, 4 insertions(+), 16 deletions(-)

diff --git a/rtl/unix/linux.pp b/rtl/unix/linux.pp
index f70f7c8af1..572d138425 100644
--- a/rtl/unix/linux.pp
+++ b/rtl/unix/linux.pp
@@ -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