paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-10-31 10:11:27 +01:00
Code Issues Packages Projects Releases Wiki Activity

* statfs moved and updated

Browse Source
This commit is contained in:
marco 2004-10-31 14:34:14 +00:00
parent da54c52817
commit 726ddc2fbf
2 changed files with 43 additions and 53 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

44
rtl/freebsd/ptypes.inc
View File

@ -140,6 +140,43 @@ type
);
Const
MNAMLEN = 80; // slightly machine specific.
type
TStatfs = packed record
spare2, { place holder}
bsize, { fundamental block size}
iosize, { optimal block size }
blocks, { total blocks}
bfree, { blocks free}
bavail, { block available for mortal users}
files, { Total file nodes}
ffree : clong ; { file nodes free}
fsid : array[0..1] of longint; // fsid_t
fowner : tuid; {mounter uid}
ftype : cint;
fflags : cint; {copy of mount flags}
fsyncwrites,
fasyncwrites : cint;
fstypename : array[0..15] of char;
mountpoint : array[0..MNAMLEN-1] of char;
fsyncreads, { count of sync reads since mount }
fasyncreads : clong;
fspares1 : cshort;
mnfromname : array[0..MNAMLEN-1] of char;
fspares2 : cshort;
fspare3 : array[0..1] of clong;
end;
PStatFS=^TStatFS;
ITimerVal= Record
It_Interval,
It_Value : TimeVal;
end;
const
_PTHREAD_MUTEX_DEFAULT = _PTHREAD_MUTEX_ERRORCHECK;
_MUTEX_TYPE_FAST = _PTHREAD_MUTEX_NORMAL;
@ -159,9 +196,14 @@ const
// wordsinsigset = 4; // words in sigset_t
{
$Log$
Revision 1.14 2004-09-09 20:29:06 jonas
Revision 1.15 2004-10-31 14:34:14 marco
* statfs moved and updated
Revision 1.14 2004/09/09 20:29:06 jonas
* fixed definition of pthread_mutex_t for non-linux targets (and for
linux as well, actually).
* base libpthread definitions are now in ptypes.inc, included in unixtype

52
rtl/freebsd/systypes.inc
View File

@ -1,53 +1 @@
{
$Id$
This file is part of the Free Pascal run time library.
Copyright (c) 1999-2000 by Michael Van Canneyt,
member of the Free Pascal development team.
See the file COPYING.FPC, included in this distribution,
for details about the copyright.
This program is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
**********************************************************************}
type
TStatfs = packed record
spare2, { place holder}
bsize, { fundamental block size}
iosize, { optimal block size }
blocks, { total blocks}
bfree, { blocks free}
bavail, { block available for mortal users}
files, { Total file nodes}
ffree : longint; { file nodes free}
fsid : array[0..1] of longint;
fowner : longint; {mounter uid}
ftype : longint;
fflags : longint; {copy of mount flags}
spare : array [0..1] of longint; { For later use }
fstypename : array[0..15] of char;
mountpoint : array[0..89] of char;
mnfromname : array[0..89] of char;
end;
PStatFS=^TStatFS;
ITimerVal= Record
It_Interval,
It_Value : TimeVal;
end;
{
$Log$
Revision 1.10 2003-09-14 20:15:01 marco
* Unix reform stage two. Remove all calls from Unix that exist in Baseunix.
Revision 1.9 2002/09/07 16:01:18 peter
* old logs removed and tabs fixed
Revision 1.8 2002/05/06 10:49:59 marco
* setitimer for 1.1
}