Changeset 303 for trunk/Include/Classes/ActiveBasic/Windows/CriticalSection.ab

Timestamp:

Aug 24, 2007, 11:14:46 AM (17 years ago)

Author:

イグトランス (egtra)

Message:

フルコンパイルでのミスあぶり出し。註：修正は全て@300や@301以前に行われた。

File:

• trunk/Include/Classes/ActiveBasic/Windows/CriticalSection.ab (modified) (2 diffs)

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

@@ -7 +7 @@
 
 Namespace Detail
-    Const InterlockedExchangeAnyPointer(p, x) = InterlockedExchangePointer(VarPtr(p) As VoidPtr, x)
+    Const InterlockedExchangeAnyPointer(p, x) = InterlockedExchangePointer(ByVal VarPtr(p) As *VoidPtr, x)
 End Namespace
 
@@ -53 +53 @@
 
     /*Override*/ Sub Dispose()
-        Dim pcs = Detail.InterlockedExchangeAnyPointer(pcs, 0)
-        If pcs <> 0 Then
-            LeaveCriticalSection(ByVal pcs)
+'       Dim p = ActiveBasic.Windows.Detail.InterlockedExchangeAnyPointer(pcs, 0)
+        Dim p = InterlockedExchangePointer(pcs As VoidPtr, 0) As *CRITICAL_SECTION
+        If p <> 0 Then
+            LeaveCriticalSection(ByVal p)
         End If
     End Sub