+ Forgot to patch linux.pp

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