paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-25 12:29:25 +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 CONST
_PTHREAD_MUTEX_TIMED_NP = 0; _PTHREAD_MUTEX_TIMED_NP = 0;
_PTHREAD_MUTEX_RECURSIVE_NP = 1; _PTHREAD_MUTEX_RECURSIVE_NP = 3;
_PTHREAD_MUTEX_ERRORCHECK_NP = 2; _PTHREAD_MUTEX_ERRORCHECK_NP = 2;
_PTHREAD_MUTEX_ADAPTIVE_NP = 3; _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_RECURSIVE = _PTHREAD_MUTEX_RECURSIVE_NP;
_PTHREAD_MUTEX_ERRORCHECK = _PTHREAD_MUTEX_ERRORCHECK_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_MUTEX_FAST_NP = _PTHREAD_MUTEX_ADAPTIVE_NP;
_PTHREAD_KEYS_MAX = 256; _PTHREAD_KEYS_MAX = 256;

13
rtl/haiku/sysosh.inc
View File

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