Ignore:
Timestamp:
Feb 28, 2008, 7:05:42 PM (17 years ago)
Author:
dai
Message:

InterlockedExchangePointer関数の第一引数に意図するポインタ値が渡っていなかったため、修正した。

File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/Include/Classes/ActiveBasic/Windows/CriticalSection.ab

    r411 r439  
    5252    /*Override*/ Sub Dispose()
    5353'       Dim pcsOld = ActiveBasic.Windows.Detail.InterlockedExchangeAnyPointer(pcs, 0)
    54         Dim pcsOld = InterlockedExchangePointer(pcs As VoidPtr, 0) As *CRITICAL_SECTION
     54        Dim pcsOld = InterlockedExchangePointer(ByVal VarPtr(pcs) As *VoidPtr, 0) As *CRITICAL_SECTION
    5555        If pcsOld <> 0 Then
    5656            LeaveCriticalSection(ByVal pcsOld)
Note: See TracChangeset for help on using the changeset viewer.