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

* fix for FreeBSD9 compatibility break where sem_t is no longer an opague pointer but a record.

Browse Source 
Since it will only waste some stack space, one can the FreeBSD9 structure on all versions.

git-svn-id: trunk@23589 -
This commit is contained in:
marco 2013-02-10 17:51:29 +00:00
parent bb1e7646cb
commit 882bfd448d
1 changed files with 19 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
rtl/freebsd/ptypes.inc
View File

@ -22,6 +22,8 @@
{$I ctypes.inc}
{$packrecords c}
const
SEM_SAFE=255;
type
dev_t = cuint32; { used for device numbers }
@ -135,9 +137,24 @@ type
pthread_key_t = cint;
pthread_rwlock_t = ^pthread_rwlock_t_rec;
pthread_rwlockattr_t = ^pthread_rwlockattr_t_rec;
psem_t = ^sem_t;
ppsem_t= ^psem_t;
semid_t= pointer;
sem_t = record
magic : cuint32;
lock : pthread_mutex_t;
gtzero : pthread_cond_t;
count : cuint32;
nwaiters: cuint32;
semid : semid_t;
sysse : cint;
entry : psem_t;
backpointer : ppsem_t;
spare : array[0..SEM_SAFE] of char;
end;
sem_t_rec = record end;
sem_t = ^sem_t_rec;
rlim_t = int64;
TRlim = rlim_t;
{