paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-20 18:09:27 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fix for TAbstractSearchRec.Time type change

Browse Source 
git-svn-id: trunk@44113 -
(cherry picked from commit 9ce1d0e509)
This commit is contained in:
Tomas Hajny 2020-02-04 22:04:34 +00:00 committed by marcoonthegit
parent 716a9c641d
commit 76504abecb
2 changed files with 7 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
rtl/emx/sysutils.pp
View File

@ -684,9 +684,6 @@ end;
type
TRec = record
T, D: word;
end;
PSearchRec = ^SearchRec;
Function InternalFindFirst (Const Path : RawByteString; Attr : Longint; out Rslt : TAbstractSearchRec; var Name: RawByteString) : Longint;
@ -717,8 +714,8 @@ begin
if Err = 0 then
begin
Rslt.ExcludeAttr := 0;
TRec (Rslt.Time).T := FStat^.TimeLastWrite;
TRec (Rslt.Time).D := FStat^.DateLastWrite;
Rslt.Time := cardinal (FStat^.DateLastWrite) shl 16 +
FStat^.TimeLastWrite;
if FSApi64 then
begin
Rslt.Size := FStat^.FileSize;
@ -779,8 +776,8 @@ begin
if Err = 0 then
begin
Rslt.ExcludeAttr := 0;
TRec (Rslt.Time).T := FStat^.TimeLastWrite;
TRec (Rslt.Time).D := FStat^.DateLastWrite;
Rslt.Time := cardinal (FStat^.DateLastWrite) shl 16 +
FStat^.TimeLastWrite;
if FSApi64 then
begin
Rslt.Size := FStat^.FileSize;

11
rtl/os2/sysutils.pp
View File

@ -250,10 +250,7 @@ begin
end;
type TRec = record
T, D: word;
end;
PSearchRec = ^TSearchRec;
type PSearchRec = ^TSearchRec;
Function InternalFindFirst (Const Path : RawByteString; Attr : Longint; out Rslt : TAbstractSearchRec; var Name: RawByteString) : Longint;
@ -283,8 +280,7 @@ begin
if Err = 0 then
begin
Rslt.ExcludeAttr := 0;
TRec (Rslt.Time).T := FStat^.TimeLastWrite;
TRec (Rslt.Time).D := FStat^.DateLastWrite;
Rslt.Time := cardinal (FStat^.DateLastWrite) shl 16 + FStat^.TimeLastWrite;
if FSApi64 then
begin
Rslt.Size := FStat^.FileSize;
@ -324,8 +320,7 @@ begin
if Err = 0 then
begin
Rslt.ExcludeAttr := 0;
TRec (Rslt.Time).T := FStat^.TimeLastWrite;
TRec (Rslt.Time).D := FStat^.DateLastWrite;
Rslt.Time := cardinal (FStat^.DateLastWrite) shl 16 + FStat^.TimeLastWrite;
if FSApi64 then
begin
Rslt.Size := FStat^.FileSize;