浏览代码

* 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 年之前
父节点
当前提交
3ab27ec1c8
共有 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}