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

Add flags field to TStatfs record

Browse Source 
git-svn-id: trunk@41973 -
This commit is contained in:
pierre 2019-05-02 12:59:11 +00:00
parent ce1ba76ce5
commit ae5a9e033a
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
rtl/linux/ptypes.inc
View File

@ -195,7 +195,8 @@ Type
fsid : array[0..1] of cint; { File system ID } fsid : array[0..1] of cint; { File system ID }
namelen : clong; { Maximum name length in system } namelen : clong; { Maximum name length in system }
frsize : clong; frsize : clong;
spare : array [0..4] of clong; { For later use } flags : clong;
spare : array [0..3] of clong; { For later use }
end; end;
{$else} {$else}
TStatfs = record TStatfs = record
@ -209,7 +210,8 @@ Type
fsid : array[0..1] of cint; { File system ID } fsid : array[0..1] of cint; { File system ID }
namelen, { Maximum name length in system } namelen, { Maximum name length in system }
frsize : cint; frsize : cint;
spare : array [0..4] of cint; { For later use } flags : cint;
spare : array [0..3] of cint; { For later use }
end; end;
{$endif} {$endif}
PStatFS=^TStatFS; PStatFS=^TStatFS;