diff options
| author | hajny <hajny@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2020-01-22 12:14:47 +0000 |
|---|---|---|
| committer | hajny <hajny@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2020-01-22 12:14:47 +0000 |
| commit | 07d0c0688f55efe47bca151e9b5592bb2bec79c3 (patch) | |
| tree | a244df5e3869e8a7a66a37bf60a01a3ee4383ee5 /rtl/os2/sysutils.pp | |
| parent | 398ecdccf0a6f8356d11cceee32091c9a8bc90cd (diff) | |
| download | fpc-07d0c0688f55efe47bca151e9b5592bb2bec79c3.tar.gz | |
* fix of FileSetDate after int64 changes (r44010 and r44013)
git-svn-id: https://svn.freepascal.org/svn/fpc/trunk@44018 3ad0048d-3df7-0310-abae-a5850022a9f2
Diffstat (limited to 'rtl/os2/sysutils.pp')
| -rw-r--r-- | rtl/os2/sysutils.pp | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/rtl/os2/sysutils.pp b/rtl/os2/sysutils.pp index aff5ded1d6..89b9700d51 100644 --- a/rtl/os2/sysutils.pp +++ b/rtl/os2/sysutils.pp @@ -365,9 +365,9 @@ begin RC := DosQueryFileInfo(Handle, ilStandard, @FStat, SizeOf(FStat)); if RC = 0 then begin - Time := FStat.TimeLastWrite + longint (FStat.DateLastWrite) shl 16; + Time := FStat.TimeLastWrite + dword (FStat.DateLastWrite) shl 16; if Time = 0 then - Time := FStat.TimeCreation + longint (FStat.DateCreation) shl 16; + Time := FStat.TimeCreation + dword (FStat.DateCreation) shl 16; end else begin Time:=0; @@ -390,10 +390,10 @@ begin end else begin - FStat^.DateLastAccess := Hi (Age); - FStat^.DateLastWrite := Hi (Age); - FStat^.TimeLastAccess := Lo (Age); - FStat^.TimeLastWrite := Lo (Age); + FStat^.DateLastAccess := Hi (dword (Age)); + FStat^.DateLastWrite := Hi (dword (Age)); + FStat^.TimeLastAccess := Lo (dword (Age)); + FStat^.TimeLastWrite := Lo (dword (Age)); RC := DosSetFileInfo (Handle, ilStandard, FStat, SizeOf (FStat^)); if RC <> 0 then begin |