Changeset 439 for trunk/Include/Classes/ActiveBasic/Windows
- Timestamp:
- Feb 28, 2008, 7:05:42 PM (17 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/Include/Classes/ActiveBasic/Windows/CriticalSection.ab
r411 r439 52 52 /*Override*/ Sub Dispose() 53 53 ' Dim pcsOld = ActiveBasic.Windows.Detail.InterlockedExchangeAnyPointer(pcs, 0) 54 Dim pcsOld = InterlockedExchangePointer( pcs AsVoidPtr, 0) As *CRITICAL_SECTION54 Dim pcsOld = InterlockedExchangePointer(ByVal VarPtr(pcs) As *VoidPtr, 0) As *CRITICAL_SECTION 55 55 If pcsOld <> 0 Then 56 56 LeaveCriticalSection(ByVal pcsOld)
Note:
See TracChangeset
for help on using the changeset viewer.