Changeset 439

Timestamp:

Feb 28, 2008, 7:05:42 PM (17 years ago)

Author:

dai

Message:

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

Location:

trunk/Include/Classes

Files:

• ActiveBasic/Windows/CriticalSection.ab (modified) (1 diff)
• System/IO/FileStream.ab (modified) (1 diff)

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

@@ -52 +52 @@
     /*Override*/ Sub Dispose()
 '       Dim pcsOld = ActiveBasic.Windows.Detail.InterlockedExchangeAnyPointer(pcs, 0)
-        Dim pcsOld = InterlockedExchangePointer(pcs As VoidPtr, 0) As *CRITICAL_SECTION
+        Dim pcsOld = InterlockedExchangePointer(ByVal VarPtr(pcs) As *VoidPtr, 0) As *CRITICAL_SECTION
         If pcsOld <> 0 Then
             LeaveCriticalSection(ByVal pcsOld)

trunk/Include/Classes/System/IO/FileStream.ab

@@ -429 +429 @@
         If handle <> 0 Then
             Flush()
-            CloseHandle(InterlockedExchangePointer(VarPtr(handle), NULL))
+            CloseHandle(InterlockedExchangePointer(ByVal VarPtr(handle), NULL))
         End If
     End Sub