diff options
author | florian <florian@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2020-01-21 20:59:20 +0000 |
---|---|---|
committer | florian <florian@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2020-01-21 20:59:20 +0000 |
commit | 63d8cc6b95d99516c4f7d29d2450f7d93569e2cd (patch) | |
tree | daedb38ffec43542dd804d8aa8e2ea5bdbfc6ad7 /rtl/win | |
parent | f459a5e05312c8dfd825d964cc9fc2ef153ea660 (diff) | |
download | fpc-63d8cc6b95d99516c4f7d29d2450f7d93569e2cd.tar.gz |
* subroutines working with an OS dependend time stamp use an int64 now, so the 2038 problem
on unixes can be tackled
git-svn-id: https://svn.freepascal.org/svn/fpc/trunk@44010 3ad0048d-3df7-0310-abae-a5850022a9f2
Diffstat (limited to 'rtl/win')
-rw-r--r-- | rtl/win/sysutils.pp | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/rtl/win/sysutils.pp b/rtl/win/sysutils.pp index f562b3e687..51b2f40d92 100644 --- a/rtl/win/sysutils.pp +++ b/rtl/win/sysutils.pp @@ -394,7 +394,7 @@ begin end; -Function FileAge (Const FileName : UnicodeString): Longint; +Function FileAge (Const FileName : UnicodeString): Int64; var Handle: THandle; FindData: TWin32FindDataW; @@ -634,7 +634,7 @@ begin Result:=-1; end; -Function FileSetDate (Handle : THandle;Age : Longint) : Longint; +Function FileSetDate (Handle : THandle;Age : Int64) : Longint; Var FT: TFileTime; begin @@ -646,7 +646,7 @@ begin end; {$IFDEF OS_FILESETDATEBYNAME} -Function FileSetDate (Const FileName : UnicodeString;Age : Longint) : Longint; +Function FileSetDate (Const FileName : UnicodeString;Age : Int64) : Longint; Var fd : THandle; begin |