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

* fixed RTLCriticalSection

Browse Source 
git-svn-id: trunk@2886 -
This commit is contained in:
florian 2006-03-12 15:21:35 +00:00
parent 4afe7ef0c9
commit 3cb662b1f2
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/solaris/sysosh.inc
View File

@ -21,8 +21,25 @@ type
PRTLCriticalSection = ^TRTLCriticalSection; PRTLCriticalSection = ^TRTLCriticalSection;
TRTLCriticalSection = record TRTLCriticalSection = record
{$warning TODO TRTLCriticalSection} __pthread_mutex_flags : record
Locked: boolean __pthread_mutex_flag1 : word;
__pthread_mutex_flag2 : byte;
__pthread_mutex_ceiling : byte;
__pthread_mutex_type : word;
__pthread_mutex_magic : word;
end;
__pthread_mutex_lock : record
case longint of
0 : ( __pthread_mutex_lock64 : record
__pthread_mutex_pad : array[0..7] of byte;
end );
1 : ( __pthread_mutex_lock32 : record
__pthread_ownerpid : dword;
__pthread_lockword : dword;
end );
2 : ( __pthread_mutex_owner64 : qword );
end;
__pthread_mutex_data : qword;
end; end;