Browse Source

* add trtlcriticalsection type

peter 24 years ago
parent
commit
4035a1ba66
1 changed files with 17 additions and 1 deletions
  1. 17 1
      rtl/go32v2/system.pp

+ 17 - 1
rtl/go32v2/system.pp

@@ -85,6 +85,19 @@ const
   LFNSupport = false;
   LFNSupport = false;
 {$endif RTLLITE}
 {$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
 type
 { Dos Extender info }
 { Dos Extender info }
   p_stub_info = ^t_stub_info;
   p_stub_info = ^t_stub_info;
@@ -1549,7 +1562,10 @@ Begin
 End.
 End.
 {
 {
   $Log$
   $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
     * map sharing violation to rte 5
 
 
   Revision 1.12  2001/06/30 18:55:48  hajny
   Revision 1.12  2001/06/30 18:55:48  hajny