Browse Source

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

git-svn-id: trunk@48475 -
(cherry picked from commit ef04e3983f4e258e7c07fb3c9c67038909ea556b)
florian 4 years ago
parent
commit
3ab27ec1c8
1 changed files with 8 additions and 5 deletions
  1. 8 5
      rtl/unix/sysutils.pp

+ 8 - 5
rtl/unix/sysutils.pp

@@ -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}