mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-08-22 16:49:23 +02:00
* new files
This commit is contained in:
peter
parent
b89a03b903
commit
852c88686f
34
rtl/solaris/osdefs.inc
Normal file
34
rtl/solaris/osdefs.inc
Normal file
@ -0,0 +1,34 @@
|
|||||||
|
{
|
||||||
|
$Id$
|
||||||
|
Copyright (c) 2000-2002 by Marco van de Voort
|
||||||
|
|
||||||
|
Target dependent defines used when compileing the baseunix unit
|
||||||
|
|
||||||
|
This program is free software; you can redistribute it and/or modify
|
||||||
|
it under the terms of the GNU General Public License as published by
|
||||||
|
the Free Software Foundation; either version 2 of the License, or
|
||||||
|
(at your option) any later version.
|
||||||
|
|
||||||
|
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. See the
|
||||||
|
GNU General Public License for more details.
|
||||||
|
|
||||||
|
You should have received a copy of the GNU General Public License
|
||||||
|
along with this program; if not, write to the Free Software
|
||||||
|
Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
|
||||||
|
|
||||||
|
****************************************************************************}
|
||||||
|
|
||||||
|
{$define usedomain} // Allow uname with "domain" entry.
|
||||||
|
// (which is a GNU extension)
|
||||||
|
|
||||||
|
{
|
||||||
|
$Log$
|
||||||
|
Revision 1.1 2005-02-13 22:14:36 peter
|
||||||
|
* new files
|
||||||
|
|
||||||
|
Revision 1.1 2005/02/13 20:01:38 peter
|
||||||
|
* include file cleanup
|
||||||
|
|
||||||
|
}
|
||||||
294
rtl/solaris/ptypes.inc
Normal file
294
rtl/solaris/ptypes.inc
Normal file
@ -0,0 +1,294 @@
|
|||||||
|
{
|
||||||
|
$Id$
|
||||||
|
This file is part of the Free Pascal run time library.
|
||||||
|
Copyright (c) 2001 by Free Pascal development team
|
||||||
|
|
||||||
|
This file implements all the base types and limits required
|
||||||
|
for a minimal POSIX compliant subset required to port the compiler
|
||||||
|
to a new OS.
|
||||||
|
|
||||||
|
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.
|
||||||
|
|
||||||
|
**********************************************************************}
|
||||||
|
|
||||||
|
{***********************************************************************}
|
||||||
|
{ POSIX TYPE DEFINITIONS }
|
||||||
|
{***********************************************************************}
|
||||||
|
|
||||||
|
{ Introduced defines
|
||||||
|
- 64bitfs (should be on if libc switches to a 64-bit system.
|
||||||
|
|
||||||
|
All three tested systems (PPC,Alpha,2x i386) gave the same POSIX limits,
|
||||||
|
and all three 32-bit systems returned completely identical types too
|
||||||
|
(everything 32-bit except dev_t, which is assumed to be a result of devfs
|
||||||
|
introduction)
|
||||||
|
}
|
||||||
|
|
||||||
|
{$I ctypes.inc}
|
||||||
|
{$packrecords c}
|
||||||
|
|
||||||
|
Type
|
||||||
|
|
||||||
|
{$ifndef VER_1_0} // maybe wrong (kernel vs libc)
|
||||||
|
dev_t = cuint64; { used for device numbers }
|
||||||
|
{$else}
|
||||||
|
dev_t = int64;
|
||||||
|
{$endif}
|
||||||
|
TDev = dev_t;
|
||||||
|
pDev = ^dev_t;
|
||||||
|
|
||||||
|
kDev_t = cushort; // Linux has two different device conventions
|
||||||
|
TkDev = KDev_t; // kernel and glibc. This is kernel.
|
||||||
|
pkDev = ^kdev_t;
|
||||||
|
|
||||||
|
gid_t = cuint32; { used for group IDs }
|
||||||
|
TGid = gid_t;
|
||||||
|
pGid = ^gid_t;
|
||||||
|
|
||||||
|
ino_t = clong; { used for file serial numbers }
|
||||||
|
TIno = ino_t;
|
||||||
|
pIno = ^ino_t;
|
||||||
|
|
||||||
|
mode_t = cuint32; { used for file attributes }
|
||||||
|
TMode = mode_t;
|
||||||
|
pMode = ^mode_t;
|
||||||
|
|
||||||
|
nlink_t = cuint32; { used for link counts }
|
||||||
|
TnLink = nlink_t;
|
||||||
|
pnLink = ^nlink_t;
|
||||||
|
|
||||||
|
{$ifdef cpu64}
|
||||||
|
off_t = cint64; { used for file sizes }
|
||||||
|
{$else}
|
||||||
|
{$ifdef 64BitFS}
|
||||||
|
off_t = cint64;
|
||||||
|
{$else}
|
||||||
|
off_t = cint;
|
||||||
|
{$endif}
|
||||||
|
{$endif}
|
||||||
|
TOff = off_t;
|
||||||
|
pOff = ^off_t;
|
||||||
|
|
||||||
|
pid_t = cint32; { used as process identifier }
|
||||||
|
TPid = pid_t;
|
||||||
|
pPid = ^pid_t;
|
||||||
|
|
||||||
|
{$ifdef cpu64}
|
||||||
|
size_t = cuint64; { as definied in the C standard}
|
||||||
|
ssize_t = cint64; { used by function for returning number of bytes }
|
||||||
|
clock_t = cuint64;
|
||||||
|
time_t = cint64; { used for returning the time }
|
||||||
|
{$else}
|
||||||
|
size_t = cuint32; { as definied in the C standard}
|
||||||
|
ssize_t = cint32; { used by function for returning number of bytes }
|
||||||
|
clock_t = culong;
|
||||||
|
time_t = clong; { used for returning the time }
|
||||||
|
{$endif}
|
||||||
|
TSize = size_t;
|
||||||
|
pSize = ^size_t;
|
||||||
|
TSSize = ssize_t;
|
||||||
|
pSSize = ^ssize_t;
|
||||||
|
TClock = clock_t;
|
||||||
|
pClock = ^clock_t;
|
||||||
|
TTime = time_t;
|
||||||
|
pTime = ^time_t;
|
||||||
|
ptime_t = ^time_t;
|
||||||
|
|
||||||
|
uid_t = cuint32; { used for user ID type }
|
||||||
|
TUid = uid_t;
|
||||||
|
pUid = ^uid_t;
|
||||||
|
|
||||||
|
socklen_t= cuint32;
|
||||||
|
TSockLen = socklen_t;
|
||||||
|
pSockLen = ^socklen_t;
|
||||||
|
|
||||||
|
timeval = packed record
|
||||||
|
tv_sec,
|
||||||
|
tv_usec:clong;
|
||||||
|
end;
|
||||||
|
ptimeval = ^timeval;
|
||||||
|
TTimeVal = timeval;
|
||||||
|
|
||||||
|
timespec = packed record
|
||||||
|
tv_sec : time_t;
|
||||||
|
tv_nsec : clong;
|
||||||
|
end;
|
||||||
|
ptimespec = ^timespec;
|
||||||
|
TTimeSpec = timespec;
|
||||||
|
|
||||||
|
TStatfs = packed record
|
||||||
|
fstype, { File system type }
|
||||||
|
bsize : cint; { 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 : clong; { Free file nodes in system }
|
||||||
|
fsid : array[0..1] of cint; { File system ID }
|
||||||
|
namelen : clong; { Maximum name length in system }
|
||||||
|
spare : array [0..5] of clong; { For later use }
|
||||||
|
end;
|
||||||
|
PStatFS=^TStatFS;
|
||||||
|
|
||||||
|
pthread_t = culong;
|
||||||
|
|
||||||
|
sched_param = record
|
||||||
|
__sched_priority: cint;
|
||||||
|
end;
|
||||||
|
|
||||||
|
pthread_attr_t = record
|
||||||
|
__detachstate: cint;
|
||||||
|
__schedpolicy: cint;
|
||||||
|
__schedparam: sched_param;
|
||||||
|
__inheritsched: cint;
|
||||||
|
__scope: cint;
|
||||||
|
__guardsize: size_t;
|
||||||
|
__stackaddr_set: cint;
|
||||||
|
__stackaddr: pointer;
|
||||||
|
__stacksize: size_t;
|
||||||
|
end;
|
||||||
|
|
||||||
|
_pthread_fastlock = record
|
||||||
|
__status: clong;
|
||||||
|
__spinlock: cint;
|
||||||
|
end;
|
||||||
|
|
||||||
|
pthread_mutex_t = record
|
||||||
|
__m_reserved: cint;
|
||||||
|
__m_count: cint;
|
||||||
|
__m_owner: pointer;
|
||||||
|
__m_kind: cint;
|
||||||
|
__m_lock: _pthread_fastlock;
|
||||||
|
end;
|
||||||
|
|
||||||
|
pthread_mutexattr_t = record
|
||||||
|
__mutexkind: cint;
|
||||||
|
end;
|
||||||
|
|
||||||
|
pthread_cond_t = record
|
||||||
|
__c_lock: _pthread_fastlock;
|
||||||
|
__c_waiting: pointer;
|
||||||
|
__padding: array[0..48-1-sizeof(_pthread_fastlock)-sizeof(pointer)-sizeof(clonglong)] of byte;
|
||||||
|
__align: clonglong;
|
||||||
|
end;
|
||||||
|
|
||||||
|
pthread_condattr_t = record
|
||||||
|
__dummy: cint;
|
||||||
|
end;
|
||||||
|
|
||||||
|
pthread_key_t = cuint;
|
||||||
|
|
||||||
|
pthread_rwlock_t = record
|
||||||
|
__rw_readers: cint;
|
||||||
|
__rw_writer: pointer;
|
||||||
|
__rw_read_waiting: pointer;
|
||||||
|
__rw_write_waiting: pointer;
|
||||||
|
__rw_kind: cint;
|
||||||
|
__rw_pshared: cint;
|
||||||
|
end;
|
||||||
|
|
||||||
|
pthread_rwlockattr_t = record
|
||||||
|
__lockkind: cint;
|
||||||
|
__pshared: cint;
|
||||||
|
end;
|
||||||
|
|
||||||
|
sem_t = record
|
||||||
|
__sem_lock: _pthread_fastlock;
|
||||||
|
__sem_value: cint;
|
||||||
|
__sem_waiting: pointer;
|
||||||
|
end;
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
CONST
|
||||||
|
_PTHREAD_MUTEX_TIMED_NP = 0;
|
||||||
|
_PTHREAD_MUTEX_RECURSIVE_NP = 1;
|
||||||
|
_PTHREAD_MUTEX_ERRORCHECK_NP = 2;
|
||||||
|
_PTHREAD_MUTEX_ADAPTIVE_NP = 3;
|
||||||
|
|
||||||
|
_PTHREAD_MUTEX_NORMAL = _PTHREAD_MUTEX_TIMED_NP;
|
||||||
|
_PTHREAD_MUTEX_RECURSIVE = _PTHREAD_MUTEX_RECURSIVE_NP;
|
||||||
|
_PTHREAD_MUTEX_ERRORCHECK = _PTHREAD_MUTEX_ERRORCHECK_NP;
|
||||||
|
_PTHREAD_MUTEX_DEFAULT = _PTHREAD_MUTEX_NORMAL;
|
||||||
|
_PTHREAD_MUTEX_FAST_NP = _PTHREAD_MUTEX_ADAPTIVE_NP;
|
||||||
|
|
||||||
|
|
||||||
|
{ System limits, POSIX value in parentheses, used for buffer and stack allocation }
|
||||||
|
{ took idefix' values}
|
||||||
|
|
||||||
|
ARG_MAX = 131072; {4096} { Maximum number of argument size }
|
||||||
|
NAME_MAX = 255; {14} { Maximum number of bytes in filename }
|
||||||
|
PATH_MAX = 4095; {255} { Maximum number of bytes in pathname }
|
||||||
|
SYS_NMLN = 65;
|
||||||
|
{$ifdef FPC_USE_LIBC}
|
||||||
|
SIG_MAXSIG = 1024; // highest signal version
|
||||||
|
{$else}
|
||||||
|
SIG_MAXSIG = 128; // highest signal version
|
||||||
|
{$endif}
|
||||||
|
|
||||||
|
{ For getting/setting priority }
|
||||||
|
Prio_Process = 0;
|
||||||
|
Prio_PGrp = 1;
|
||||||
|
Prio_User = 2;
|
||||||
|
|
||||||
|
{
|
||||||
|
$Log$
|
||||||
|
Revision 1.1 2005-02-13 22:14:36 peter
|
||||||
|
* new files
|
||||||
|
|
||||||
|
Revision 1.12 2004/11/14 12:21:08 marco
|
||||||
|
* moved some calls from unix to baseunix. Darwin untested.
|
||||||
|
|
||||||
|
Revision 1.11 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
|
||||||
|
They sometimes have an extra underscore in front of their name, in
|
||||||
|
case they were also exported by the packages/base/pthreads unit, so
|
||||||
|
they can keep their original name there
|
||||||
|
* cthreadds unit now imports systuils, because it uses exceptions (it
|
||||||
|
already did so before as well)
|
||||||
|
* fixed many linux definitions of libpthread functions in pthrlinux.inc
|
||||||
|
(integer -> cint etc)
|
||||||
|
+ added culonglong type to ctype.inc
|
||||||
|
|
||||||
|
Revision 1.10 2004/05/02 01:00:07 peter
|
||||||
|
* statfs fixed
|
||||||
|
|
||||||
|
Revision 1.9 2004/04/26 16:53:19 peter
|
||||||
|
* use cpu64
|
||||||
|
|
||||||
|
Revision 1.8 2004/03/04 22:15:16 marco
|
||||||
|
* UnixType changes. Please report problems to me.
|
||||||
|
|
||||||
|
Revision 1.7 2004/01/11 09:56:20 jonas
|
||||||
|
* moved tstatfs from systypes.inc to ptypes.inc to fix make cycle with
|
||||||
|
-dFPC_USE_LIBC (systypes.inc is now completely commented out)
|
||||||
|
|
||||||
|
Revision 1.6 2003/12/30 12:46:40 marco
|
||||||
|
* ptime_t
|
||||||
|
|
||||||
|
Revision 1.5 2003/09/27 13:45:58 peter
|
||||||
|
* fpnanosleep exported in baseunix
|
||||||
|
* fpnanosleep has pointer arguments to be C compliant
|
||||||
|
|
||||||
|
Revision 1.4 2003/09/14 20:15:01 marco
|
||||||
|
* Unix reform stage two. Remove all calls from Unix that exist in Baseunix.
|
||||||
|
|
||||||
|
Revision 1.3 2002/12/18 16:43:26 marco
|
||||||
|
* new unix rtl, linux part.....
|
||||||
|
|
||||||
|
Revision 1.2 2002/11/12 14:28:40 marco
|
||||||
|
* some updates
|
||||||
|
|
||||||
|
Revision 1.1 2002/10/29 16:47:17 marco
|
||||||
|
* Linux versions
|
||||||
|
|
||||||
|
|
||||||
|
}
|
||||||
|
|
||||||
105
rtl/unix/ctypes.inc
Normal file
105
rtl/unix/ctypes.inc
Normal file
@ -0,0 +1,105 @@
|
|||||||
|
{
|
||||||
|
$Id$
|
||||||
|
This file is part of the Free Pascal run time library.
|
||||||
|
Copyright (c) 2001 by Free Pascal development team
|
||||||
|
|
||||||
|
Basic types for C interfacing. Check the 64-bit defines.
|
||||||
|
|
||||||
|
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.
|
||||||
|
|
||||||
|
**********************************************************************}
|
||||||
|
|
||||||
|
{***********************************************************************}
|
||||||
|
{ POSIX TYPE DEFINITIONS }
|
||||||
|
{***********************************************************************}
|
||||||
|
|
||||||
|
Type
|
||||||
|
{ the following type definitions are compiler dependant }
|
||||||
|
{ and system dependant }
|
||||||
|
|
||||||
|
cInt8 = shortint;
|
||||||
|
cUInt8 = byte;
|
||||||
|
cUInt16= word;
|
||||||
|
cInt16 = smallint;
|
||||||
|
cInt32 = longint;
|
||||||
|
cUInt32= cardinal;
|
||||||
|
cInt64 = int64;
|
||||||
|
{$ifndef VER1_0}
|
||||||
|
cUInt64= qword;
|
||||||
|
{$else}
|
||||||
|
cUInt64= int64;
|
||||||
|
{$endif}
|
||||||
|
|
||||||
|
cuchar = byte;
|
||||||
|
cchar = shortint;
|
||||||
|
cInt = longint; { minimum range is : 32-bit }
|
||||||
|
cUInt = Cardinal; { minimum range is : 32-bit }
|
||||||
|
{$ifdef cpu64}
|
||||||
|
cLong = int64;
|
||||||
|
cuLong = qword;
|
||||||
|
{$else}
|
||||||
|
cLong = longint;
|
||||||
|
cuLong = Cardinal;
|
||||||
|
{$endif}
|
||||||
|
clonglong = int64;
|
||||||
|
{$ifndef VER1_0}
|
||||||
|
culonglong = qword;
|
||||||
|
{$else VER1_0}
|
||||||
|
culonglong = int64;
|
||||||
|
{$endif VER1_0}
|
||||||
|
cshort = smallint;
|
||||||
|
cushort = word;
|
||||||
|
|
||||||
|
pcInt = ^cInt;
|
||||||
|
pcUInt = ^cUInt;
|
||||||
|
pcLong = ^cLong;
|
||||||
|
pculong = ^cuLong;
|
||||||
|
pcshort = ^cshort;
|
||||||
|
pcushort = ^cushort;
|
||||||
|
pcchar = ^cchar;
|
||||||
|
pcuchar = ^cuchar;
|
||||||
|
|
||||||
|
cunsigned = cuint;
|
||||||
|
pcunsigned = ^cunsigned;
|
||||||
|
|
||||||
|
{
|
||||||
|
$Log$
|
||||||
|
Revision 1.1 2005-02-13 22:14:36 peter
|
||||||
|
* new files
|
||||||
|
|
||||||
|
Revision 1.6 2005/02/05 23:02:37 florian
|
||||||
|
+ added some missing c types
|
||||||
|
|
||||||
|
Revision 1.5 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
|
||||||
|
They sometimes have an extra underscore in front of their name, in
|
||||||
|
case they were also exported by the packages/base/pthreads unit, so
|
||||||
|
they can keep their original name there
|
||||||
|
* cthreadds unit now imports systuils, because it uses exceptions (it
|
||||||
|
already did so before as well)
|
||||||
|
* fixed many linux definitions of libpthread functions in pthrlinux.inc
|
||||||
|
(integer -> cint etc)
|
||||||
|
+ added culonglong type to ctype.inc
|
||||||
|
|
||||||
|
Revision 1.4 2004/04/26 16:53:19 peter
|
||||||
|
* use cpu64
|
||||||
|
|
||||||
|
Revision 1.3 2003/09/16 21:20:40 marco
|
||||||
|
* pointer's of some basetypes
|
||||||
|
|
||||||
|
Revision 1.2 2002/12/18 16:43:26 marco
|
||||||
|
* new unix rtl, linux part.....
|
||||||
|
|
||||||
|
Revision 1.1 2002/11/09 22:39:28 marco
|
||||||
|
* first version
|
||||||
|
|
||||||
|
|
||||||
|
}
|
||||||
|
|
||||||
Loading…
Reference in New Issue
Block a user