Răsfoiți Sursa

* 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 ani în urmă
părinte
comite
3ab27ec1c8
1 a modificat fișierele cu 8 adăugiri și 5 ștergeri
  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}