* fix FileSeek implementation to match declaration

git-svn-id: trunk@5159 -

rtl/amiga/sysutils.pp

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

rtl/beos/sysutils.pp

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

rtl/emx/sysutils.pp

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

rtl/gba/sysutils.pp

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

rtl/go32v2/sysutils.pp

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

rtl/macos/sysutils.pp

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

rtl/morphos/sysutils.pp

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

rtl/netware/sysutils.pp

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

rtl/netwlibc/sysutils.pp

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

rtl/os2/sysutils.pp

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

rtl/watcom/sysutils.pp

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

rtl/win/sysutils.pp

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

rtl/wince/sysutils.pp

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