paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-14 06:29:16 +02:00
Code Issues Packages Projects Releases Wiki Activity

* statx based Sysutils.FileGetDate with handle fixed

Browse Source 
+ test

git-svn-id: trunk@48520 -
This commit is contained in:
florian 2021-02-07 17:59:28 +00:00
parent b08717fef6
commit 3e453f92fc
2 changed files with 9 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
rtl/unix/sysutils.pp
View File

@ -1082,10 +1082,12 @@ Var
{$ifdef USE_STATX} {$ifdef USE_STATX}
Infox : TStatx; Infox : TStatx;
{$endif USE_STATX} {$endif USE_STATX}
Char0 : char;
begin begin
Result:=-1; Result:=-1;
{$ifdef USE_STATX} {$ifdef USE_STATX}
if statx(Handle,nil,0,STATX_MTIME,Infox)=0 then Char0:=#0;
if statx(Handle,@Char0,AT_EMPTY_PATH,STATX_MTIME,Infox)=0 then
Result:=Infox.stx_Mtime.tv_sec Result:=Infox.stx_Mtime.tv_sec
else if fpgeterrno=ESysENOSYS then else if fpgeterrno=ESysENOSYS then
{$endif USE_STATX} {$endif USE_STATX}

6
tests/test/units/sysutils/tfile1.pp
View File

@ -39,6 +39,12 @@ BEGIN
do_error(1003); do_error(1003);
Close(f); Close(f);
Assign(f,'datetest.dat');
Reset(f);
if FileGetDate(filerec(f).handle)<>DateTimeToFileDate(dateTime) then
do_error(1004);
Close(f);
if FileExists('datetest.dat') then if FileExists('datetest.dat') then
begin begin
Assign(f,'datetest.dat'); Assign(f,'datetest.dat');