paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-16 20:39:13 +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;
TRTLCriticalSection = record
{$warning TODO TRTLCriticalSection}
Locked: boolean
__pthread_mutex_flags : record
__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;