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

* fix size of pthread_rwlock_t. Mantis #21552 Fields are now opaque.

Browse Source 
git-svn-id: trunk@21243 -
This commit is contained in:
marco 2012-05-05 22:04:08 +00:00
parent 9e03a58c3d
commit a0becaa727
1 changed files with 9 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
rtl/linux/ptypes.inc
View File

@ -232,15 +232,16 @@ Type
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;
const
pthreadrwlocksize = {$ifdef CPU64} 56{$else}32{$endif};
type
pthread_rwlock_t = record // should be 56 for 64-bit, 32 bytes for 32-bit mantis #21552
case boolean of
false : (_data : array[0..pthreadrwlocksize-1] of char);
true : (align : clong);
end;
pthread_rwlockattr_t = record
__lockkind: cint;
__pshared: cint;