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

* sysutils on linux uses only the new syscalls if the system has no suitable clong type

Browse Source 
git-svn-id: trunk@48475 -
(cherry picked from commit ef04e3983f)
This commit is contained in:
florian 2021-01-31 18:20:01 +00:00 committed by marcoonthegit
parent b2da1dbfba
commit 3ab27ec1c8
1 changed files with 8 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
rtl/unix/sysutils.pp
View File

@ -56,9 +56,12 @@ uses
{$ENDIF}
{$if defined(LINUX)}
{$DEFINE USE_STATX}
{$DEFINE USE_UTIMENSAT}
{$DEFINE USE_FUTIMES}
{$if sizeof(clong)<=4}
{$DEFINE USE_STATX}
{$DEFINE USE_UTIMENSAT}
{$endif sizeof(clong)<=4}
{$DEFINE USE_FUTIMES}
{$endif}
{ Include platform independent interface part }
@ -1086,10 +1089,10 @@ end;
Function FileSetDate (Handle : Longint;Age : Int64) : Longint;
{$ifdef USE_UTIMENSAT}
{$ifdef USE_FUTIMES}
var
times : tkernel_timespecs;
{$endif USE_UTIMENSAT}
{$endif USE_FUTIMES}
begin
Result:=0;
{$ifdef USE_FUTIMES}