paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-27 16:50:33 +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); flock:=do_Syscall(Syscall_nr_flock,fd,mode);
end; 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. 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 Path is the name of a file/directory on the fileSystem you wish to
investigate. investigate.
} }
begin begin
path:=path+#0; StatFS:=(do_SysCall(SysCall_nr_statfs,longint(path),longint(@Info)));
StatFS:=(do_SysCall(SysCall_nr_statfs,longint(@path[1]),longint(@Info)));
end; end;
}
Function fStatFS(Fd:cint;Var Info:tstatfs):cint; Function fStatFS(Fd:cint;Var Info:tstatfs):cint;
{ {
Get all information on a fileSystem, and return it in Info. Get all information on a fileSystem, and return it in Info.
@ -118,7 +117,10 @@ end;
{ {
$Log$ $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 * linux now compiles with FPC_USE_LIBC
Revision 1.22 2003/12/30 12:36:56 marco Revision 1.22 2003/12/30 12:36:56 marco