summaryrefslogtreecommitdiff
path: root/rtl/linux
diff options
context:
space:
mode:
authorflorian <florian@3ad0048d-3df7-0310-abae-a5850022a9f2>2021-02-01 21:05:23 +0000
committerflorian <florian@3ad0048d-3df7-0310-abae-a5850022a9f2>2021-02-01 21:05:23 +0000
commitd338c17258c0fa84e64cca1256133f9281c43506 (patch)
tree70ce26ed213127f5c08ffecedc78b735be66c0a1 /rtl/linux
parent783f3c373cd16775c3099308324c59b8950f6c0f (diff)
downloadfpc-d338c17258c0fa84e64cca1256133f9281c43506.tar.gz
* disable new syscalls on android
git-svn-id: https://svn.freepascal.org/svn/fpc/trunk@48495 3ad0048d-3df7-0310-abae-a5850022a9f2
Diffstat (limited to 'rtl/linux')
-rw-r--r--rtl/linux/linux.pp14
1 files changed, 9 insertions, 5 deletions
diff --git a/rtl/linux/linux.pp b/rtl/linux/linux.pp
index b2e6e8815c..fa6c7c30a9 100644
--- a/rtl/linux/linux.pp
+++ b/rtl/linux/linux.pp
@@ -20,7 +20,7 @@ unit Linux;
{$i osdefs.inc}
{$packrecords c}
-{$ifdef FPC_USE_LIBC}
+{$ifdef FPC_USE_LIBC}
{$linklib rt} // for clock* functions
{$endif}
@@ -40,7 +40,7 @@ type
__s32 = Longint;
__u64 = QWord;
__s64 = Int64;
-
+
type
TSysInfo = record
uptime: clong; //* Seconds since boot */
@@ -483,8 +483,8 @@ Type
function clock_getres(clk_id : clockid_t; res : ptimespec) : cint; {$ifdef FPC_USE_LIBC} cdecl; external name 'clock_getres'; {$ENDIF}
function clock_gettime(clk_id : clockid_t; tp: ptimespec) : cint; {$ifdef FPC_USE_LIBC} cdecl; external name 'clock_gettime'; {$ENDIF}
function clock_settime(clk_id : clockid_t; tp : ptimespec) : cint; {$ifdef FPC_USE_LIBC} cdecl; external name 'clock_settime'; {$ENDIF}
-function setregid(rgid,egid : uid_t): cint; {$ifdef FPC_USE_LIBC} cdecl; external name 'setregid'; {$ENDIF}
-function setreuid(ruid,euid : uid_t): cint; {$ifdef FPC_USE_LIBC} cdecl; external name 'setreuid'; {$ENDIF}
+function setregid(rgid,egid : uid_t): cint; {$ifdef FPC_USE_LIBC} cdecl; external name 'setregid'; {$ENDIF}
+function setreuid(ruid,euid : uid_t): cint; {$ifdef FPC_USE_LIBC} cdecl; external name 'setreuid'; {$ENDIF}
Const
STATX_TYPE = $00000001;
@@ -555,8 +555,10 @@ Type
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 futimens(fd: cint; const times:tkernel_timespecs):cint; {$ifdef FPC_USE_LIBC} cdecl; external name 'futimens'; {$ENDIF}
+{$endif android}
implementation
@@ -861,7 +863,7 @@ function setregid(rgid,egid : uid_t): cint;
begin
setregid:=do_syscall(syscall_nr_setregid,rgid,egid);
end;
-
+
function setreuid(ruid,euid : uid_t): cint;
begin
setreuid:=do_syscall(syscall_nr_setreuid,ruid,euid);
@@ -875,6 +877,7 @@ end;
{$endif}
+{$ifndef android}
Function utimensat(dfd: cint; path:pchar;const times:tkernel_timespecs;flags:cint):cint;
var
tsa: Array[0..1] of timespec;
@@ -913,6 +916,7 @@ begin
futimens:=do_syscall(syscall_nr_utimensat,fd,TSysParam(nil),TSysParam(@times),0);
{$endif sizeof(clong)<=4}
end;
+{$endif android}
end.