Changeset 297
- Timestamp:
- Aug 18, 2007, 12:03:36 AM (17 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
Include/Classes/ActiveBasic/Windows/CriticalSection.ab
r288 r297 53 53 54 54 /*Override*/ Sub Dispose() 55 Dim p = Detail.InterlockedExchangeAnyPointer(pcs, 0)56 If p <> 0 Then57 LeaveCriticalSection(ByVal p )55 Dim pcs = Detail.InterlockedExchangeAnyPointer(pcs, 0) 56 If pcs <> 0 Then 57 LeaveCriticalSection(ByVal pcs) 58 58 End If 59 59 End Sub
Note:
See TracChangeset
for help on using the changeset viewer.