Changeset 297 for Include/Classes


Ignore:
Timestamp:
Aug 18, 2007, 12:03:36 AM (17 years ago)
Author:
NoWest
Message:

タイプミスを修正

File:
1 edited

Legend:

Unmodified
Added
Removed
  • Include/Classes/ActiveBasic/Windows/CriticalSection.ab

    r288 r297  
    5353
    5454    /*Override*/ Sub Dispose()
    55         Dim p = Detail.InterlockedExchangeAnyPointer(pcs, 0)
    56         If p <> 0 Then
    57             LeaveCriticalSection(ByVal p)
     55        Dim pcs = Detail.InterlockedExchangeAnyPointer(pcs, 0)
     56        If pcs <> 0 Then
     57            LeaveCriticalSection(ByVal pcs)
    5858        End If
    5959    End Sub
Note: See TracChangeset for help on using the changeset viewer.