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

* small fixes for exporting statfs(pchar,..)

Browse Source
This commit is contained in:
marco 2003-12-31 20:23:31 +00:00
parent b447c92828
commit 5bc097ac0b
1 changed files with 8 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
rtl/linux/unixsysc.inc
View File

@ -24,18 +24,17 @@ begin
flock:=do_Syscall(Syscall_nr_flock,fd,mode);
end;
{
Function StatFS(Path:Pathstr;Var Info:tstatfs):cint;
Function StatFS(Path:Pchar;Var Info:tstatfs):cint;
{
Get all information on a fileSystem, and return it in Info.
Path is the name of a file/directory on the fileSystem you wish to
investigate.
}
begin
path:=path+#0;
StatFS:=(do_SysCall(SysCall_nr_statfs,longint(@path[1]),longint(@Info)));
StatFS:=(do_SysCall(SysCall_nr_statfs,longint(path),longint(@Info)));
end;
}
Function fStatFS(Fd:cint;Var Info:tstatfs):cint;
{
Get all information on a fileSystem, and return it in Info.
@ -118,7 +117,10 @@ end;
{
$Log$
Revision 1.23 2003-12-30 15:43:20 marco
Revision 1.24 2003-12-31 20:23:31 marco
* small fixes for exporting statfs(pchar,..)
Revision 1.23 2003/12/30 15:43:20 marco
* linux now compiles with FPC_USE_LIBC
Revision 1.22 2003/12/30 12:36:56 marco