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

* fix some pthread declarations probably inherited from the BeOS port.

Browse Source 
Finally fix a deadlock when launching Lazarus with thread support.

git-svn-id: trunk@19526 -
This commit is contained in:
olivier 2011-10-21 22:24:03 +00:00
parent 7d867d16bc
commit 07eed52fd8
2 changed files with 8 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
rtl/haiku/ptypes.inc
View File

@ -184,14 +184,14 @@ type
CONST
_PTHREAD_MUTEX_TIMED_NP = 0;
_PTHREAD_MUTEX_RECURSIVE_NP = 1;
_PTHREAD_MUTEX_RECURSIVE_NP = 3;
_PTHREAD_MUTEX_ERRORCHECK_NP = 2;
_PTHREAD_MUTEX_ADAPTIVE_NP = 3;
_PTHREAD_MUTEX_NORMAL = _PTHREAD_MUTEX_TIMED_NP;
_PTHREAD_MUTEX_NORMAL = 1;
_PTHREAD_MUTEX_RECURSIVE = _PTHREAD_MUTEX_RECURSIVE_NP;
_PTHREAD_MUTEX_ERRORCHECK = _PTHREAD_MUTEX_ERRORCHECK_NP;
_PTHREAD_MUTEX_DEFAULT = _PTHREAD_MUTEX_NORMAL;
_PTHREAD_MUTEX_DEFAULT = 0;
_PTHREAD_MUTEX_FAST_NP = _PTHREAD_MUTEX_ADAPTIVE_NP;
_PTHREAD_KEYS_MAX = 256;

13
rtl/haiku/sysosh.inc
View File

@ -24,12 +24,9 @@ type
{ pthread_mutex_t }
PRTLCriticalSection = ^TRTLCriticalSection;
TRTLCriticalSection = record
__m_reserved: longint;
__m_count: longint;
__m_owner: pointer;
__m_kind: longint;
__m_lock: record
__status: sizeint;
__spinlock: longint;
end;
flags : Cardinal;
lock : integer;
unused : integer;
owner : integer;
owner_count : integer;
end;