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

* fix FileSeek implementation to match declaration

Browse Source 
git-svn-id: trunk@5159 -
This commit is contained in:
micha 2006-11-01 17:47:47 +00:00
parent 53e4ea7bc1
commit ce9e589e15
13 changed files with 13 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
rtl/amiga/sysutils.pp
View File

@ -157,7 +157,7 @@ begin
FileSeek:=dosSeek(Handle, FOffset, seekMode);
end;
function FileSeek(Handle: LongInt; FOffset, Origin: Int64): Int64;
function FileSeek(Handle: LongInt; FOffset: Int64; Origin: Longint): Int64;
begin
{$WARNING Need to add 64bit call }
FileSeek:=FileSeek(Handle,LongInt(FOffset),LongInt(Origin));

2
rtl/beos/sysutils.pp
View File

@ -71,7 +71,7 @@ Function FileSeek (Handle,FOffset,Origin : longint) : longint;
begin
end;
Function FileSeek (Handle:longint;FOffset,Origin : int64) : int64;
Function FileSeek (Handle:longint;FOffset: Int64; Origin: Longint) : int64;
begin
end;

2
rtl/emx/sysutils.pp
View File

@ -494,7 +494,7 @@ asm
pop ebx
end {['eax', 'ebx', 'edx']};
function FileSeek (Handle: longint; FOffset, Origin: Int64): Int64;
function FileSeek (Handle: longint; FOffset: Int64; Origin: longint): Int64;
begin
{$warning need to add 64bit call }
Result:=FileSeek(Handle,Longint(Foffset),Longint(Origin));

2
rtl/gba/sysutils.pp
View File

@ -91,7 +91,7 @@ begin
result := -1;
end;
function FileSeek(Handle: LongInt; FOffset, Origin: Int64): Int64;
function FileSeek(Handle: LongInt; FOffset: Int64; Origin: Longint): Int64;
begin
result := -1;
end;

2
rtl/go32v2/sysutils.pp
View File

@ -221,7 +221,7 @@ begin
end;
Function FileSeek (Handle : Longint; FOffset,Origin : Int64) : Int64;
Function FileSeek (Handle : Longint; FOffset: Int64; Origin: Integer) : Int64;
begin
{$warning need to add 64bit call }
FileSeek:=FileSeek(Handle,Longint(FOffset),Longint(Origin));

2
rtl/macos/sysutils.pp
View File

@ -136,7 +136,7 @@ begin
end;
Function FileSeek (Handle : Longint; FOffset,Origin : Int64) : Int64;
Function FileSeek (Handle : Longint; FOffset: Int64; Origin : Longint) : Int64;
begin
(* TODO fix

2
rtl/morphos/sysutils.pp
View File

@ -157,7 +157,7 @@ begin
FileSeek:=dosSeek(Handle, FOffset, seekMode);
end;
function FileSeek(Handle: LongInt; FOffset, Origin: Int64): Int64;
function FileSeek(Handle: LongInt; FOffset: Int64; Origin: Longint): Int64;
begin
{$WARNING Need to add 64bit call }
FileSeek:=FileSeek(Handle,LongInt(FOffset),LongInt(Origin));

2
rtl/netware/sysutils.pp
View File

@ -132,7 +132,7 @@ begin
end;
Function FileSeek (Handle : THandle; FOffset,Origin : Int64) : Int64;
Function FileSeek (Handle : THandle; FOffset: Int64; Origin: Longint) : Int64;
begin
{$warning need to add 64bit FileSeek }
FileSeek:=FileSeek(Handle,Longint(FOffset),Longint(Origin));

2
rtl/netwlibc/sysutils.pp
View File

@ -131,7 +131,7 @@ begin
end;
Function FileSeek (Handle : THandle; FOffset,Origin : Int64) : Int64;
Function FileSeek (Handle : THandle; FOffset: Int64; Origin: Longint) : Int64;
begin
FileSeek:=libc.fplseek64 (Handle,FOffset,Origin);
end;

2
rtl/os2/sysutils.pp
View File

@ -516,7 +516,7 @@ begin
FileSeek:=-1;
end;
function FileSeek (Handle: longint; FOffset, Origin: Int64): Int64;
function FileSeek (Handle: longint; FOffset: Int64; Origin: Longint): Int64;
begin
{$warning need to add 64bit call }
Result:=FileSeek(Handle,Longint(Foffset),Longint(Origin));

2
rtl/watcom/sysutils.pp
View File

@ -226,7 +226,7 @@ begin
end;
Function FileSeek (Handle : Longint; FOffset,Origin : Int64) : Int64;
Function FileSeek (Handle : Longint; FOffset: Int64; Origin: Longint) : Int64;
begin
{$warning need to add 64bit call }
FileSeek:=FileSeek(Handle,Longint(FOffset),Longint(Origin));

2
rtl/win/sysutils.pp
View File

@ -252,7 +252,7 @@ begin
end;
Function FileSeek (Handle : THandle; FOffset,Origin : Int64) : Int64;
Function FileSeek (Handle : THandle; FOffset: Int64; Origin: Longint) : Int64;
begin
if assigned(SetFilePointerEx) then
begin

2
rtl/wince/sysutils.pp
View File

@ -197,7 +197,7 @@ begin
end;
Function FileSeek (Handle : THandle; FOffset,Origin : Int64) : Int64;
Function FileSeek (Handle : THandle; FOffset: Int64; Origin: Longint) : Int64;
begin
Result := SetFilePointer(Handle, longint(FOffset), nil, longint(Origin));
end;