Browse Source

* parameter name change in FileSeek

Tomas Hajny 25 years ago
parent
commit
a1064939f4
4 changed files with 22 additions and 10 deletions
  1. 6 3
      rtl/linux/filutil.inc
  2. 5 2
      rtl/objpas/filutilh.inc
  3. 5 2
      rtl/template/filutil.inc
  4. 6 3
      rtl/win32/filutil.inc

+ 6 - 3
rtl/linux/filutil.inc

@@ -52,10 +52,10 @@ begin
 end;
 
 
-Function FileSeek (Handle,Offset,Origin : Longint) : Longint;
+Function FileSeek (Handle,FOffset,Origin : Longint) : Longint;
 
 begin
-  FileSeek:=fdSeek (Handle,Offset,Origin);
+  FileSeek:=fdSeek (Handle,FOffset,Origin);
 end;
 
 
@@ -283,7 +283,10 @@ end;
 
 {
   $Log$
-  Revision 1.16  2000-03-22 20:00:54  michael
+  Revision 1.17  2000-06-04 14:23:50  hajny
+    * parameter name change in FileSeek
+
+  Revision 1.16  2000/03/22 20:00:54  michael
   + removed handle checkin fileclose
 
   Revision 1.15  2000/02/17 22:16:05  sg

+ 5 - 2
rtl/objpas/filutilh.inc

@@ -52,7 +52,7 @@ Function FileOpen (Const FileName : string; Mode : Integer) : Longint;
 Function FileCreate (Const FileName : String) : Longint;
 Function FileRead (Handle : Longint; Var Buffer; Count : longint) : Longint;
 Function FileWrite (Handle : Longint; const Buffer; Count : Longint) : Longint;
-Function FileSeek (Handle,Offset,Origin : Longint) : Longint;
+Function FileSeek (Handle,FOffset,Origin : Longint) : Longint;
 Procedure FileClose (Handle : Longint);
 Function FileTruncate (Handle,Size: Longint) : boolean;
 Function FileAge (Const FileName : String): Longint;
@@ -71,7 +71,10 @@ Function FileSearch (Const Name, DirList : String) : String;
 
 {
   $Log$
-  Revision 1.8  2000-02-17 22:16:05  sg
+  Revision 1.9  2000-06-04 14:22:15  hajny
+    * parameter name change in FileSeek
+
+  Revision 1.8  2000/02/17 22:16:05  sg
   * Changed the second argument of FileWrite from "var buffer" to
     "const buffer", like in Delphi.
 

+ 5 - 2
rtl/template/filutil.inc

@@ -43,7 +43,7 @@ begin
 end;
 
 
-Function FileSeek (Handle,Offset,Origin : Longint) : Longint;
+Function FileSeek (Handle,FOffset,Origin : Longint) : Longint;
 
 begin
   //!! Needs implementing
@@ -167,7 +167,10 @@ end;
 
 {
   $Log$
-  Revision 1.2  2000-01-07 16:41:51  daniel
+  Revision 1.3  2000-06-04 14:19:34  hajny
+    * parameter name change in FileSeek
+
+  Revision 1.2  2000/01/07 16:41:51  daniel
     * copyright 2000
 
   Revision 1.1  1999/11/08 22:45:01  peter

+ 6 - 3
rtl/win32/filutil.inc

@@ -70,10 +70,10 @@ begin
 end;
 
 
-Function FileSeek (Handle,Offset,Origin : Longint) : Longint;
+Function FileSeek (Handle,FOffset,Origin : Longint) : Longint;
 
 begin
-  Result := SetFilePointer(Handle, Offset, nil, Origin);
+  Result := SetFilePointer(Handle, FOffset, nil, Origin);
 end;
 
 
@@ -427,7 +427,10 @@ end;
 
 {
   $Log$
-  Revision 1.16  2000-05-15 19:28:41  peter
+  Revision 1.17  2000-06-04 14:16:54  hajny
+    * parameter name change in FileSeek
+
+  Revision 1.16  2000/05/15 19:28:41  peter
     * int64 support for diskfree,disksize
 
   Revision 1.15  2000/02/17 22:16:05  sg