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

Timestamp:

Sep 18, 2007, 12:10:41 AM (17 years ago)

Author:

イグトランス (egtra)

Message:

SPrintF関連の追加。関数FloatToChars, FormatFloatE, FormatIntegerUと列挙体FormatFlags。

File:

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

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

@@ -53 +53 @@
 
     /*Override*/ Sub Dispose()
-'       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)
+'       Dim pcsOld = ActiveBasic.Windows.Detail.InterlockedExchangeAnyPointer(pcs, 0)
+        Dim pcsOld = InterlockedExchangePointer(pcs As VoidPtr, 0) As *CRITICAL_SECTION
+        If pcsOld <> 0 Then
+            LeaveCriticalSection(ByVal pcsOld)
         End If
     End Sub