paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-27 20:11:02 +02:00
Code Issues Packages Projects Releases Wiki Activity

* disable new syscalls on android

Browse Source 
git-svn-id: trunk@48495 -
(cherry picked from commit 3922926d17)
This commit is contained in:
florian 2021-02-01 21:05:23 +00:00 committed by Pierre Muller
parent 7cb40dc7d0
commit b1f6be15e9
1 changed files with 9 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
rtl/linux/linux.pp
View File

@ -551,8 +551,10 @@ Type
tkernel_timespecs = array[0..1] of kernel_timespec; tkernel_timespecs = array[0..1] of kernel_timespec;
{$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 'statx'; {$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}
implementation implementation
@ -860,6 +862,7 @@ end;
{$endif} {$endif}
{$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;
var var
tsa: Array[0..1] of timespec; tsa: Array[0..1] of timespec;
@ -898,6 +901,7 @@ begin
futimens:=do_syscall(syscall_nr_utimensat,fd,TSysParam(nil),TSysParam(@times),0); futimens:=do_syscall(syscall_nr_utimensat,fd,TSysParam(nil),TSysParam(@times),0);
{$endif sizeof(clong)<=4} {$endif sizeof(clong)<=4}
end; end;
{$endif android}
end. end.