Changeset 439 for trunk/Include/Classes/System

Timestamp:

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

Author:

dai

Message:

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

File:

• trunk/Include/Classes/System/IO/FileStream.ab (modified) (1 diff)

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