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

- removed

Browse Source
This commit is contained in:
Jonas Maebe 2004-01-04 19:57:08 +00:00
parent 881dbc054e
commit 8b43ff0b0b
1 changed files with 0 additions and 135 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

135
rtl/darwin/systypes.inc
View File

@ -1,135 +0,0 @@
{
$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/ppc:
%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,reg7,reg8 : longint;
end;
PSysCallRegs=^SysCallRegs;
TSysCallRegs=SysCallRegs;
dev_t = CARDINAL;
{$packrecords C}
Stat =record {BSD version}
dev : dev_t; { inode's device }
ino : cardinal; { inode's number }
mode, { inode protection mode }
nlink : word; { number of hard links }
uid, { user ID of the file's owner }
gid, { group ID of the file's group }
dev_t : cardinal; { device type }
atime, { time of last access }
atime_nsec, { nsec of last access }
mtime, { time of last data modification }
mtime_nsec, { nsec of last data modification }
ctime, { time of last file status change }
ctime_nsec : longint; { nsec of last file status change }
size, { file size, in bytes }
blocks : Int64; { blocks allocated for file }
blksze, { optimal blocksize for I/O }
flags, { user defined flags for file }
filegen : cardinal; { file generation number }
lspare : longint;
qspare : array[0..1] of int64;
end;
PStat=^Stat;
TStat=Stat;
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;
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 or int64 ?}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;
ITimerVal= Record
It_Interval,
It_Value : TimeVal;
end;
{
$Log$
Revision 1.2 2002-09-07 16:01:17 peter
* old logs removed and tabs fixed
Revision 1.1 2002/09/06 18:35:59 jonas
* implemented most syscalls, except readdir because the getdents
syscall is declared obsolete in Darwin...
}