paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-19 18:51:31 +02:00
Code Issues Packages Projects Releases Wiki Activity

* properly fix the statfs for both 32 and 64bit linux

Browse Source 
git-svn-id: trunk@11224 -
This commit is contained in:
Almindor 2008-06-14 11:01:02 +00:00
parent dd75625d8d
commit cb5d95a43d
1 changed files with 20 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
rtl/linux/ptypes.inc
View File

@ -136,18 +136,35 @@ Type
ptimespec = ^timespec;
TTimeSpec = timespec;
{$ifdef cpu64}
TStatfs = packed record
fstype, { File system type }
bsize, // : cint; { Optimal block trensfer size }
bsize : clong; { Optimal block trensfer size }
blocks, { Data blocks in system }
bfree, { free blocks in system }
bavail, { Available free blocks to non-root users }
files, { File nodes in system }
ffree : clong; { Free file nodes in system }
ffree : culong; { Free file nodes in system }
fsid : array[0..1] of cint; { File system ID }
namelen : clong; { Maximum name length in system }
spare : array [0..5] of clong; { For later use }
frsize : clong;
spare : array [0..4] of clong; { For later use }
end;
{$else}
TStatfs = packed record
fstype, { File system type }
bsize : cint; { Optimal block trensfer size }
blocks, { Data blocks in system }
bfree, { free blocks in system }
bavail, { Available free blocks to non-root users }
files, { File nodes in system }
ffree : culong; { Free file nodes in system }
fsid : array[0..1] of cint; { File system ID }
namelen, { Maximum name length in system }
frsize : cint;
spare : array [0..4] of cint; { For later use }
end;
{$endif}
PStatFS=^TStatFS;
mbstate_value_t = record