Преглед изворни кода

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

git-svn-id: trunk@48475 -
florian пре 4 година
родитељ
комит
ef04e3983f
1 измењених фајлова са 8 додато и 5 уклоњено
  1. 8 5
      rtl/unix/sysutils.pp

+ 8 - 5
rtl/unix/sysutils.pp

@@ -56,9 +56,12 @@ uses
 {$ENDIF}
 {$ENDIF}
 
 
 {$if defined(LINUX)}
 {$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}
 {$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}