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

* parameter name change in FileSeek

Browse Source
This commit is contained in:
Tomas Hajny 2000-06-04 14:16:54 +00:00
parent 89a79fa97b
commit a1064939f4
4 changed files with 22 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
rtl/linux/filutil.inc
View File

@ -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

7
rtl/objpas/filutilh.inc
View File

@ -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.

7
rtl/template/filutil.inc
View File

@ -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

9
rtl/win32/filutil.inc
View File

@ -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