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

+ make use of the fputimensat syscall on linux to enable always times beyond 32 bit

Browse Source 
git-svn-id: trunk@48471 -
This commit is contained in:
florian 2021-01-31 16:43:53 +00:00
parent 0c77536f11
commit e6f575d43c
1 changed files with 19 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
rtl/unix/sysutils.pp
View File

@ -56,7 +56,8 @@ uses
{$ENDIF}
{$if defined(LINUX)}
{$DEFINE HAS_STATX}
{$DEFINE USE_STATX}
{$DEFINE USE_UTIMENSAT}
{$endif}
{ Include platform independent interface part }
@ -556,20 +557,20 @@ Function FileAge (Const FileName : RawByteString): Int64;
Var
Info : Stat;
SystemFileName: RawByteString;
{$ifdef HAS_STATX}
{$ifdef USE_STATX}
Infox : Statx;
{$endif HAS_STATX}
{$endif USE_STATX}
begin
SystemFileName:=ToSingleByteFileSystemEncodedFileName(FileName);
{$ifdef HAS_STATX}
{$ifdef USE_STATX}
{ first try statx }
if (Fpstatx(0,pchar(SystemFileName),0,STATX_MTIME or STATX_MODE,Infox)>=0) and not(fpS_ISDIR(Infox.stx_mode)) then
begin
Result:=Infox.stx_mtime.tv_sec;
exit;
end;
{$endif HAS_STATX}
{$endif USE_STATX}
If (fpstat(pchar(SystemFileName),Info)<0) or fpS_ISDIR(info.st_mode) then
exit(-1)
@ -1086,14 +1087,27 @@ end;
Function FileSetDate (Const FileName : RawByteString; Age : Int64) : Longint;
var
SystemFileName: RawByteString;
{$ifdef USE_UTIMENSAT}
times : tkernel_timespecs;
{$else USE_UTIMENSAT}
t: TUTimBuf;
{$endif USE_UTIMENSAT}
begin
SystemFileName:=ToSingleByteFileSystemEncodedFileName(FileName);
Result:=0;
{$ifdef USE_UTIMENSAT}
times[0].tv_sec:=Age;
times[0].tv_nsec:=0;
times[1].tv_sec:=Age;
times[1].tv_nsec:=0;
if fputimensat(AT_FDCWD,PChar(SystemFileName),times,0) = -1 then
Result:=fpgeterrno;
{$else USE_UTIMENSAT}
t.actime:= Age;
t.modtime:=Age;
if fputime(PChar(SystemFileName), @t) = -1 then
Result:=fpgeterrno;
{$endif USE_UTIMENSAT}
end;
{****************************************************************************