diff options
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 |