From 726ddc2fbf24a9d30183d3bcd27a9df8f70385e5 Mon Sep 17 00:00:00 2001 From: marco Date: Sun, 31 Oct 2004 14:34:14 +0000 Subject: [PATCH] * statfs moved and updated --- rtl/freebsd/ptypes.inc | 44 +++++++++++++++++++++++++++++++++- rtl/freebsd/systypes.inc | 52 ---------------------------------------- 2 files changed, 43 insertions(+), 53 deletions(-) diff --git a/rtl/freebsd/ptypes.inc b/rtl/freebsd/ptypes.inc index 406c302f77..20e7bc2880 100644 --- a/rtl/freebsd/ptypes.inc +++ b/rtl/freebsd/ptypes.inc @@ -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 diff --git a/rtl/freebsd/systypes.inc b/rtl/freebsd/systypes.inc index b987c26857..8b13789179 100644 --- a/rtl/freebsd/systypes.inc +++ b/rtl/freebsd/systypes.inc @@ -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 - -}