paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-20 13:09:15 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Some types fixed/ported.

Browse Source
This commit is contained in:
marco 2000-02-03 17:05:55 +00:00
parent aeafb7ba80
commit f6a2e04b59
1 changed files with 28 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

43
rtl/bsd/systypes.inc
View File

@ -36,13 +36,16 @@ type
PSysCallRegs=^SysCallRegs; PSysCallRegs=^SysCallRegs;
TSysCallRegs=SysCallRegs; TSysCallRegs=SysCallRegs;
{ The following are records for system calls } { The following are records for system calls BSD updated }
dirent = packed record dirent = packed record
ino, ino : cardinal; { This is not inode number, but "a number
off : longint; unique for each file on a filesystem"}
reclen : word; reclen : word;
d_type,
namlen : byte;
name : array [0..255] of char; name : array [0..255] of char;
end; end;
pdirent =^dirent; pdirent =^dirent;
TDirEnt = dirent; TDirEnt = dirent;
@ -86,16 +89,22 @@ type
TStat=Stat; TStat=Stat;
Statfs = packed record Statfs = packed record
fstype, { File system type } spare2, { place holder}
bsize, { Optimal block trensfer size } bsize, { fundamental block size}
blocks, { Data blocks in system } iosize, { optimal block size }
bfree, { free blocks in system } blocks, { total blocks}
bavail, { Available free blocks to non-root users } bfree, { blocks free}
files, { File nodes in system } bavail, { block available for mortal users}
ffree, { Free file nodes in system } files, { Total file nodes}
fsid, { File system ID } ffree : longint; { file nodes free}
namelen : longint; { Maximum name length in system } fsid : array[0..1] of longint;
spare : array [0..6] of longint; { For later use } 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; end;
PStatFS=^StatFS; PStatFS=^StatFS;
TStatFS=StatFS; TStatFS=StatFS;
@ -105,7 +114,7 @@ type
TFDSet=fdset; TFDSet=fdset;
timeval = packed record timeval = packed record
sec,usec:longint sec,usec:int64;
end; end;
ptimeval=^timeval; ptimeval=^timeval;
TTimeVal=timeval; TTimeVal=timeval;
@ -129,7 +138,11 @@ type
{ {
$Log$ $Log$
Revision 1.2 2000-02-02 16:45:38 marco Revision 1.3 2000-02-03 17:05:55 marco
* Some types fixed/ported.
Revision 1.2 2000/02/02 16:45:38 marco
* Typo in STAT record * Typo in STAT record
Revision 1.1 2000/02/02 16:36:09 marco Revision 1.1 2000/02/02 16:36:09 marco