1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
|
{
This file is part of the Free Pascal run time library.
Copyright (c) 2001 by Free Pascal development team
Some calls for the unix unit.
See the file COPYING.FPC, included in this distribution,
for details about the copyright.
This program is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
***********************************************************************}
Function fpFlock (fd,mode : cint) : cint;
begin
fpflock:=do_Syscall(Syscall_nr_flock,fd,mode);
end;
Function fpfStatFS (Fd: cint; Info:pstatfs):cint;
begin
{$ifdef android}
fpfstatfs:=-1;
{$else}
fpfstatfs:=do_SysCall(SysCall_nr_fstatfs,fd,TSysParam(info))
{$endif android}
end;
Function fpStatFS (Path:pchar; Info:pstatfs):cint;
begin
{$ifdef android}
fpStatFS:=-1;
{$else}
fpstatfs:=do_SysCall(SysCall_nr_statfs,TSysParam(path),TSysParam(Info))
{$endif android}
end;
Function fpfsync (fd : cint) : cint;
begin
fpfsync:=do_SysCall(syscall_nr_fsync, fd);
end;
{$ifndef android}
{--------------------------------
Port IO functions
--------------------------------}
{$ifdef cpui386}
Function IOperm (From,Num : cuint; Value : cint) : boolean;
{
Set permissions on NUM ports starting with port FROM to VALUE
this works ONLY as root.
}
begin
IOPerm:=do_Syscall(Syscall_nr_ioperm,from,num,value)=0;
end;
Function IoPL(Level : cint) : Boolean;
begin
IOPL:=do_Syscall(Syscall_nr_iopl,level)=0;
end;
{$endif cpui386}
{$endif android}
|
