paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-16 07:30:46 +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 -
This commit is contained in:
florian 2021-01-31 18:20:01 +00:00
parent c3656c6b1c
commit ef04e3983f
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} {$ENDIF}
{$if defined(LINUX)} {$if defined(LINUX)}
{$DEFINE USE_STATX} {$if sizeof(clong)<=4}
{$DEFINE USE_UTIMENSAT} {$DEFINE USE_STATX}
{$DEFINE USE_FUTIMES} {$DEFINE USE_UTIMENSAT}
{$endif sizeof(clong)<=4}
{$DEFINE USE_FUTIMES}
{$endif} {$endif}
{ Include platform independent interface part } { Include platform independent interface part }
@ -1086,10 +1089,10 @@ end;
Function FileSetDate (Handle : Longint;Age : Int64) : Longint; Function FileSetDate (Handle : Longint;Age : Int64) : Longint;
{$ifdef USE_UTIMENSAT} {$ifdef USE_FUTIMES}
var var
times : tkernel_timespecs; times : tkernel_timespecs;
{$endif USE_UTIMENSAT} {$endif USE_FUTIMES}
begin begin
Result:=0; Result:=0;
{$ifdef USE_FUTIMES} {$ifdef USE_FUTIMES}