mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-10-31 21:09:38 +01:00
141 lines
3.2 KiB
PHP
141 lines
3.2 KiB
PHP
{
|
|
$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
|
|
|
|
{
|
|
Linux system calls take arguments as follows :
|
|
|
|
i386/m68k:
|
|
|
|
%eax/%d0 : System call number
|
|
%ebx/%d1 : first argument
|
|
%ecx/%d2 : second argument
|
|
%edx/%d3 : third argumens
|
|
%esi/%d3 : fourth argument
|
|
%edi/%d4 : fifth argument
|
|
|
|
That is why we define a special type, with only these arguments
|
|
To make it processor independent, we don't give any system dependent
|
|
names, but the rather abstract reg1,reg2 etc;
|
|
}
|
|
SysCallRegs=record
|
|
reg1,reg2,reg3,reg4,reg5,reg6 : longint;
|
|
end;
|
|
PSysCallRegs=^SysCallRegs;
|
|
TSysCallRegs=SysCallRegs;
|
|
|
|
{ The following are records for system calls }
|
|
dirent = packed record
|
|
ino,
|
|
off : longint;
|
|
reclen : word;
|
|
name : array [0..255] of char;
|
|
end;
|
|
pdirent =^dirent;
|
|
TDirEnt = dirent;
|
|
|
|
TDir = packed record
|
|
fd : integer;
|
|
loc : longint;
|
|
size : integer;
|
|
buf : pdirent;
|
|
{The following are used in libc, but NOT in the linux kernel sources ??}
|
|
nextoff: longint;
|
|
dd_max : integer; {size of buf. Irrelevant, as buf is of type dirent}
|
|
lock : pointer;
|
|
end;
|
|
PDir =^TDir;
|
|
|
|
Stat = packed record
|
|
dev,
|
|
pad1 : word;
|
|
ino : longint;
|
|
mode,
|
|
nlink,
|
|
uid,
|
|
gid,
|
|
rdev,
|
|
pad2 : word;
|
|
size,
|
|
blksze,
|
|
blocks,
|
|
atime,
|
|
unused1,
|
|
mtime,
|
|
unused2,
|
|
ctime,
|
|
unused3,
|
|
unused4,
|
|
unused5 : longint;
|
|
end;
|
|
PStat=^Stat;
|
|
TStat=Stat;
|
|
|
|
Statfs = packed record
|
|
fstype, { File system type }
|
|
bsize, { 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, { Free file nodes in system }
|
|
fsid, { File system ID }
|
|
namelen : longint; { Maximum name length in system }
|
|
spare : array [0..6] of longint; { For later use }
|
|
end;
|
|
PStatFS=^StatFS;
|
|
TStatFS=StatFS;
|
|
|
|
fdSet=array[0..7] of longint;{=256 bits}
|
|
pfdset=^fdset;
|
|
TFDSet=fdset;
|
|
|
|
timeval = packed record
|
|
sec,usec:longint
|
|
end;
|
|
ptimeval=^timeval;
|
|
TTimeVal=timeval;
|
|
|
|
timespec = packed record
|
|
tv_sec,tv_nsec:longint;
|
|
end;
|
|
|
|
timezone = packed record
|
|
minuteswest,dsttime:longint;
|
|
end;
|
|
ptimezone =^timezone;
|
|
TTimeZone = timezone;
|
|
|
|
utsname = packed record
|
|
sysname,
|
|
nodename,
|
|
release,
|
|
version,
|
|
machine,
|
|
domainname : Array[0..64] of char;
|
|
end;
|
|
PUTSName=^UTSName;
|
|
TUTSName=UTSName;
|
|
|
|
{
|
|
$Log$
|
|
Revision 1.3 2000-10-26 22:55:11 peter
|
|
* merges from fixes
|
|
|
|
Revision 1.2 2000/07/13 11:33:49 michael
|
|
+ removed logs
|
|
|
|
}
|