Changeset 335 for trunk/Include/Classes/ActiveBasic

Timestamp:

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

Author:

イグトランス (egtra)

Message:

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

Location:

trunk/Include/Classes/ActiveBasic

Files:

• Strings/SPrintF.ab (added)
• Windows/CriticalSection.ab (modified) (1 diff)
• index.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

trunk/Include/Classes/ActiveBasic/index.ab

@@ -1 +1 @@
 #require "./Core/index.ab"
+#require "./Windows/index.ab"