Changeset 600
- Timestamp:
- Aug 20, 2008, 3:40:28 AM (16 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/ab5.0/ablib/src/Classes/ActiveBasic/Windows/CriticalSection.ab
r439 r600 35 35 36 36 Class CriticalSectionLock 37 ' Inherits System.IDisposable37 Implements System.IDisposable 38 38 Public 39 39 Sub CriticalSectionLock(ByRef cs As CRITICAL_SECTION) … … 50 50 End Sub 51 51 52 /*Override*/Sub Dispose()52 Virtual Sub Dispose() 53 53 ' Dim pcsOld = ActiveBasic.Windows.Detail.InterlockedExchangeAnyPointer(pcs, 0) 54 54 Dim pcsOld = InterlockedExchangePointer(ByVal VarPtr(pcs) As *VoidPtr, 0) As *CRITICAL_SECTION
Note:
See TracChangeset
for help on using the changeset viewer.