Changeset 269 for Include/Classes/ActiveBasic/Windows/CriticalSection.ab

Timestamp:

Jun 2, 2007, 7:08:26 PM (17 years ago)

Author:

イグトランス (egtra)

Message:

basicディレクトリの一部の_System関数をActiveBasic名前空間へ入れた

File:

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

Include/Classes/ActiveBasic/Windows/CriticalSection.ab

@@ -6 +6 @@
 Namespace Windows
 
+Namespace Detail
+    Const InterlockedExchangeAnyPointer(p, x) = InterlockedExchangePointer(VarPtr(p) As VoidPtr, x)
+End Namespace
+
 Class CriticalSection
-    Inherits System.IDisposable
+'   Inherits System.IDisposable
 Public
     Sub CriticalSection()
@@ -18 +22 @@
     End Sub
 
-    Override Sub Dispose()
+    /*Override*/ Sub Dispose()
         If InterlockedIncrement(disposed) = 0 Then
             DeleteCriticalSection(cs)
@@ -24 +28 @@
     End Sub
 
-    Function Enter() As CriticalSectionLock
+    Function Enter() As ActiveBasic.Windows.CriticalSectionLock
         Return New CriticalSectionLock(cs)
     End Function
@@ -33 +37 @@
 
 Class CriticalSectionLock
-    Inherits System.IDisposable
+'   Inherits System.IDisposable
 Public
     Sub CriticalSectionLock(ByRef cs As CRITICAL_SECTION)
@@ -48 +52 @@
     End Sub
 
-    Override Sub Dispose()
-        Dim p = InterlockedExchangePointer(ByVal VarPtr(pcs), 0)
+    /*Override*/ Sub Dispose()
+        Dim p = InterlockedExchangeAnyPointer(pcs, 0)
         If p <> 0 Then
             LeaveCriticalSection(ByVal p)