瀏覽代碼

Fix compilation of linux unit with -dFPC_USE_LIBC option

git-svn-id: trunk@48504 -
pierre 4 年之前
父節點
當前提交
64bd8336f1
共有 1 個文件被更改,包括 2 次插入2 次删除
  1. 2 2
      rtl/linux/linux.pp

+ 2 - 2
rtl/linux/linux.pp

@@ -556,7 +556,7 @@ Type
    tkernel_timespecs = array[0..1] of kernel_timespec;
    tkernel_timespecs = array[0..1] of kernel_timespec;
 
 
 {$ifndef android}
 {$ifndef android}
-Function utimensat(dfd: cint; path:pchar;const times:tkernel_timespecs;flags:cint):cint; {$ifdef FPC_USE_LIBC} cdecl; external name 'statx'; {$ENDIF}
+Function utimensat(dfd: cint; path:pchar;const times:tkernel_timespecs;flags:cint):cint; {$ifdef FPC_USE_LIBC} cdecl; external name 'utimensat'; {$ENDIF}
 Function futimens(fd: cint; const times:tkernel_timespecs):cint; {$ifdef FPC_USE_LIBC} cdecl; external name 'futimens'; {$ENDIF}
 Function futimens(fd: cint; const times:tkernel_timespecs):cint; {$ifdef FPC_USE_LIBC} cdecl; external name 'futimens'; {$ENDIF}
 {$endif android}
 {$endif android}
 
 
@@ -875,7 +875,6 @@ begin
   statx:=do_syscall(syscall_nr_statx,TSysParam(dfd),TSysParam(filename),TSysParam(flags),TSysParam(mask),TSysParam(@buf));
   statx:=do_syscall(syscall_nr_statx,TSysParam(dfd),TSysParam(filename),TSysParam(flags),TSysParam(mask),TSysParam(@buf));
 end;
 end;
 
 
-{$endif}
 
 
 {$ifndef android}
 {$ifndef android}
 Function utimensat(dfd: cint; path:pchar;const times:tkernel_timespecs;flags:cint):cint;
 Function utimensat(dfd: cint; path:pchar;const times:tkernel_timespecs;flags:cint):cint;
@@ -917,6 +916,7 @@ begin
 {$endif sizeof(clong)<=4}
 {$endif sizeof(clong)<=4}
 end;
 end;
 {$endif android}
 {$endif android}
+{$endif not FPC_USE_LIBC}
 
 
 end.
 end.