Changeset 297 for Include/Classes/ActiveBasic

Timestamp:

Aug 18, 2007, 12:03:36 AM (17 years ago)

Author:

NoWest

Message:

タイプミスを修正

File:

• Include/Classes/ActiveBasic/Windows/CriticalSection.ab (modified) (1 diff)

Include/Classes/ActiveBasic/Windows/CriticalSection.ab

@@ -53 +53 @@
 
     /*Override*/ Sub Dispose()
-        Dim p = Detail.InterlockedExchangeAnyPointer(pcs, 0)
-        If p <> 0 Then
-            LeaveCriticalSection(ByVal p)
+        Dim pcs = Detail.InterlockedExchangeAnyPointer(pcs, 0)
+        If pcs <> 0 Then
+            LeaveCriticalSection(ByVal pcs)
         End If
     End Sub