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

* added getfsstat

Browse Source 
git-svn-id: trunk@17038 -
This commit is contained in:
marco 2011-02-27 20:15:39 +00:00
parent d9773a2ee0
commit ee31bd0b62
2 changed files with 9 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
rtl/freebsd/freebsd.pas
View File

@ -185,6 +185,10 @@ Type
function kse_release(timeout: PTimeSpec): cInt; extdecl; function kse_release(timeout: PTimeSpec): cInt; extdecl;
function kse_switchin(tmbx: PKseThrMailBox; flags: cInt): cInt; extdecl; function kse_switchin(tmbx: PKseThrMailBox; flags: cInt): cInt; extdecl;
{$ifndef FPC_USE_LIBC}
function fpgetfsstat(buf:pstatfs;bufsize:clong;flags:cint):cint;
{$endif}
Const Const
MAP_FILE = $0000; { map from file (default) } MAP_FILE = $0000; { map from file (default) }
MAP_ANON = $1000; { allocated from memory, swap space } MAP_ANON = $1000; { allocated from memory, swap space }
@ -294,6 +298,10 @@ begin
kse_switchin:=do_SysCall(syscall_nr_kse_switchin, TSysParam(tmbx), TSysParam(flags)); kse_switchin:=do_SysCall(syscall_nr_kse_switchin, TSysParam(tmbx), TSysParam(flags));
end; end;
function fpgetfsstat(buf:pstatfs;bufsize:clong;flags:cint):cint;
begin
fpgetfsstat:=do_syscall(syscall_nr_getfsstat,TSysParam(buf),TSysParam(Bufsize),TSysParam(Flags));
end;
{$ENDIF} {$ENDIF}
end. end.

1
rtl/freebsd/sysnr.inc
View File

@ -231,6 +231,7 @@ syscall_nr_getdirentries =196;
} }
{More or less checked/in use FreeBSD syscalls} {More or less checked/in use FreeBSD syscalls}
syscall_nr_getfsstat = 18;
syscall_nr_readv = 120; syscall_nr_readv = 120;
syscall_nr_writev = 121; syscall_nr_writev = 121;
syscall_nr_pread = 173; syscall_nr_pread = 173;