Browse Source

* fcntl needs file as Var argument

michael 26 years ago
parent
commit
7548fe8c26
1 changed files with 8 additions and 5 deletions
  1. 8 5
      rtl/linux/linux.pp

+ 8 - 5
rtl/linux/linux.pp

@@ -546,8 +546,8 @@ Function  FStat(var F:File;Var Info:stat):Boolean;
 Function  Lstat(Filename: PathStr;var Info:stat):Boolean;
 Function  FSStat(Path:Pathstr;Var Info:statfs):Boolean;
 Function  FSStat(Fd: Longint;Var Info:statfs):Boolean;
-Function  Fcntl(Fd:Text;Cmd:Integer):integer;
-Procedure Fcntl(Fd:Text;Cmd:Integer;Arg:Longint);
+Function  Fcntl(var Fd:Text;Cmd:Integer):integer;
+Procedure Fcntl(var Fd:Text;Cmd:Integer;Arg:Longint);
 Function  Dup(oldfile:longint;var newfile:longint):Boolean;
 Function  Dup(var oldfile,newfile:text):Boolean;
 Function  Dup(var oldfile,newfile:file):Boolean;
@@ -1383,7 +1383,7 @@ end;
 
 
 
-Function Fcntl(Fd:Text;Cmd:integer):integer;
+Function Fcntl(var Fd:Text;Cmd:integer):integer;
 {
   Read or manipulate a file.(See also fcntl (2) )
   Possible values for Cmd are :
@@ -1420,7 +1420,7 @@ end;
 
 
 
-Procedure Fcntl(Fd:Text;Cmd:Integer;Arg:Longint);
+Procedure Fcntl(var Fd:Text;Cmd:Integer;Arg:Longint);
 {
   Read or manipulate a file. (See also fcntl (2) )
   Possible values for Cmd are :
@@ -3546,7 +3546,10 @@ End.
 
 {
   $Log$
-  Revision 1.37  1999-05-10 09:13:41  peter
+  Revision 1.38  1999-05-26 11:05:24  michael
+  * fcntl needs file as Var argument
+
+  Revision 1.37  1999/05/10 09:13:41  peter
     * fixed typo
 
   Revision 1.36  1999/05/08 19:47:24  peter