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

* add trtlcriticalsection type

Browse Source
This commit is contained in:
peter 2001-10-28 17:43:51 +00:00
parent ac400051bd
commit 4035a1ba66
1 changed files with 17 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
rtl/go32v2/system.pp
View File

@ -85,6 +85,19 @@ const
LFNSupport = false;
{$endif RTLLITE}
type
{ the fields of this record are os dependent }
{ and they shouldn't be used in a program }
{ only the type TCriticalSection is important }
TRTLCriticalSection = packed record
DebugInfo : pointer;
LockCount : longint;
RecursionCount : longint;
OwningThread : DWord;
LockSemaphore : DWord;
Reserved : DWord;
end;
type
{ Dos Extender info }
p_stub_info = ^t_stub_info;
@ -1549,7 +1562,10 @@ Begin
End.
{
$Log$
Revision 1.13 2001-08-12 17:57:54 peter
Revision 1.14 2001-10-28 17:43:51 peter
* add trtlcriticalsection type
Revision 1.13 2001/08/12 17:57:54 peter
* map sharing violation to rte 5
Revision 1.12 2001/06/30 18:55:48 hajny