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

* fix compilation on several OSes after r44010

Browse Source 
git-svn-id: trunk@44013 -
(cherry picked from commit 69956cd97a)
This commit is contained in:
florian 2020-01-21 21:50:37 +00:00 committed by marcoonthegit
parent eecfdddd8d
commit 336e72f3c4
21 changed files with 33 additions and 42 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
rtl/amicommon/sysutils.pp
View File

@ -182,7 +182,7 @@ begin
end;
function FileGetDate(Handle: THandle) : LongInt;
function FileGetDate(Handle: THandle) : Int64;
var
tmpFIB : PFileInfoBlock;
tmpDateTime: TDateTime;

2
rtl/atari/sysutils.pp
View File

@ -76,7 +76,7 @@ begin
end;
function FileGetDate(Handle: THandle) : LongInt;
function FileGetDate(Handle: THandle) : Int64;
var
td: TDOSTIME;
begin

3
rtl/embedded/sysutils.pp
View File

@ -52,8 +52,7 @@ begin
result := -1;
end;
function FileGetDate(Handle: LongInt) : LongInt;
function FileGetDate(Handle: THandle) : Int64;
begin
result := -1;
end;

5
rtl/emx/sysutils.pp
View File

@ -838,7 +838,7 @@ begin
end;
function FileGetDate (Handle: longint): longint; assembler;
function FileGetDate (Handle: longint): Int64; assembler;
asm
push ebx
{$IFDEF REGCALL}
@ -854,10 +854,11 @@ asm
shld eax, ecx, 16
@FGetDateEnd:
pop ebx
xorl edx,edx
end {['eax', 'ebx', 'ecx', 'edx']};
function FileSetDate (Handle, Age: longint): longint;
function FileSetDate (Handle: longint; Age: Int64): longint;
var FStat: PFileStatus3;
RC: cardinal;
begin

4
rtl/gba/sysutils.pp
View File

@ -61,13 +61,13 @@ begin
end;
function FileGetDate(Handle: LongInt) : LongInt;
function FileGetDate(Handle: LongInt) : Int64;
begin
result := -1;
end;
function FileSetDate(Handle, Age: Int64) : LongInt;
function FileSetDate(Handle: Longint; Age: Int64) : LongInt;
begin
result := -1;
end;

9
rtl/go32v2/sysutils.pp
View File

@ -424,7 +424,7 @@ begin
end;
Function FileGetDate (Handle : Longint) : Longint;
Function FileGetDate (Handle : Longint) : Int64;
var
Regs: registers;
begin
@ -435,14 +435,11 @@ begin
if Regs.Flags and CarryFlag <> 0 then
result := -1
else
begin
LongRec(result).Lo := Regs.cx;
LongRec(result).Hi := Regs.dx;
end ;
result:=(Regs.dx shl 16) or Regs.cx;
end;
Function FileSetDate (Handle, Age : Int64) : Longint;
Function FileSetDate (Handle: longint; Age: Int64) : Longint;
var
Regs: registers;
begin

4
rtl/macos/sysutils.pp
View File

@ -446,7 +446,7 @@ begin
end;
Function FileGetDate (Handle : Longint) : Longint;
Function FileGetDate (Handle : Longint) : Int64;
(*
Var Info : Stat;
@ -462,7 +462,7 @@ begin
end;
Function FileSetDate (Handle,Age : Int64) : Longint;
Function FileSetDate (Handle: Longint; Age: Int64) : Longint;
begin
// TODO fix

7
rtl/msdos/sysutils.pp
View File

@ -423,7 +423,7 @@ begin
end;
Function FileGetDate (Handle : THandle) : Longint;
Function FileGetDate (Handle : THandle) : Int64;
var
Regs: registers;
begin
@ -434,10 +434,7 @@ begin
if Regs.Flags and fCarry <> 0 then
result := -1
else
begin
LongRec(result).Lo := Regs.cx;
LongRec(result).Hi := Regs.dx;
end ;
result:=(Regs.dx shl 16) or Regs.cx;
end;

2
rtl/nativent/sysutils.pp
View File

@ -853,7 +853,7 @@ Begin
end;
function FileGetDate(Handle: THandle): Longint;
function FileGetDate(Handle: THandle): Int64;
var
res: NTSTATUS;
basic: FILE_BASIC_INFORMATION;

4
rtl/nds/sysutils.pp
View File

@ -70,13 +70,13 @@ begin
end;
function FileGetDate(Handle: LongInt) : LongInt;
function FileGetDate(Handle: LongInt) : Int64;
begin
result := -1;
end;
function FileSetDate(Handle, Age: Int64) : LongInt;
function FileSetDate(Handle: LongInt; Age: Int64) : LongInt;
begin
result := -1;
end;

2
rtl/netware/sysutils.pp
View File

@ -362,7 +362,7 @@ begin
end;
Function FileGetDate (Handle : THandle) : Longint;
Function FileGetDate (Handle : THandle) : Int64;
Var Info : NWStatBufT;
PTM : PNWTM;
begin

2
rtl/netware/tests/test.pas
View File

@ -336,7 +336,7 @@ BEGIN
END;
{
Function FileSetDate (Handle,Age : Int64) : Longint;
Function FileSetDate (Handle: longint; Age: Int64) : Longint;
Function FileSetAttr (Const Filename : String; Attr: longint) : Longint;
}
PROCEDURE SysUtilsTest;

2
rtl/netwlibc/sysutils.pp
View File

@ -354,7 +354,7 @@ end;
Function FileGetDate (Handle : THandle) : Longint;
Function FileGetDate (Handle : THandle) : Int64;
Var Info : TStat;
_PTM : PTM;
begin

2
rtl/objpas/sysutils/filutil.inc
View File

@ -537,7 +537,7 @@ end;
type
TAbstractSearchRec = Record
Time : Longint;
Time : Int64;
Size : Int64;
Attr : Longint;
{ this will be assigned by the generic code; it is actually either a

4
rtl/os2/sysutils.pp
View File

@ -356,7 +356,7 @@ begin
end;
function FileGetDate (Handle: THandle): longint;
function FileGetDate (Handle: THandle): Int64;
var
FStat: TFileStatus3;
Time: Longint;
@ -376,7 +376,7 @@ begin
FileGetDate:=Time;
end;
function FileSetDate (Handle: THandle; Age: longint): longint;
function FileSetDate (Handle: THandle; Age: Int64): longint;
var
FStat: PFileStatus3;
RC: cardinal;

2
rtl/symbian/sysutils.pp
View File

@ -53,7 +53,7 @@ begin
end;
function FileGetDate(Handle: LongInt) : LongInt;
function FileGetDate(Handle: LongInt) : Int64;
begin
result := -1;
end;

4
rtl/watcom/sysutils.pp
View File

@ -406,7 +406,7 @@ begin
end;
Function FileGetDate (Handle : Longint) : Longint;
Function FileGetDate (Handle : Longint) : Int64;
var
Regs: registers;
begin
@ -424,7 +424,7 @@ begin
end;
Function FileSetDate (Handle, Age : Int64) : Longint;
Function FileSetDate (Handle: longint; Age: Int64) : Longint;
var
Regs: registers;
begin

4
rtl/wii/sysutils.pp
View File

@ -60,13 +60,13 @@ begin
end;
function FileGetDate(Handle: LongInt) : LongInt;
function FileGetDate(Handle: LongInt) : Int64;
begin
result := -1;
end;
function FileSetDate(Handle, Age: Int64) : LongInt;
function FileSetDate(Handle: Longint; Age: Int64) : LongInt;
begin
result := -1;
end;

2
rtl/win/sysutils.pp
View File

@ -650,7 +650,7 @@ end;
Function FileGetDate (Handle : THandle) : Longint;
Function FileGetDate (Handle : THandle) : Int64;
Var
FT : TFileTime;
tmpdtime : longint;

7
rtl/win16/sysutils.pp
View File

@ -449,7 +449,7 @@ begin
end;
Function FileGetDate (Handle : THandle) : Longint;
Function FileGetDate (Handle : THandle) : Int64;
var
Regs: registers;
begin
@ -461,10 +461,7 @@ begin
if Regs.Flags and fCarry <> 0 then
result := -1
else
begin
LongRec(result).Lo := Regs.cx;
LongRec(result).Hi := Regs.dx;
end ;
Result:=(Regs.dx shl 16) or Regs.cx;
end;

2
rtl/wince/sysutils.pp
View File

@ -361,7 +361,7 @@ begin
end;
Function FileGetDate (Handle : THandle) : Longint;
Function FileGetDate (Handle : THandle) : Int64;
Var
FT : TFileTime;
tmpdtime : longint;