Changeset 257 for Include/Classes/System

Timestamp:

May 19, 2007, 3:29:33 PM (18 years ago)

Author:

イグトランス (egtra)

Message:

VersionTest追加、Log1p追加

Location:

Include/Classes/System

Files:

• Math.ab (modified) (2 diffs)
• OperatingSystem.ab (modified) (5 diffs)
• Runtime/InteropServices/GCHandle.ab (modified) (1 diff)
• Version.ab (modified) (2 diffs)

Include/Classes/System/Math.ab

@@ -232 +232 @@
             Dim tmp = x * _System_InverseSqrt2
             Dim p = VarPtr(tmp) As *QWord
-            Dim m = p[0] And &h7FF0000000000000
+            Dim m = GetQWord(p) And &h7FF0000000000000
             Dim k = ((m >> 52) As DWord) As Long - 1022
-            p[0] = m + &h0010000000000000
+            SetQWord(p, m + &h0010000000000000)
             x /= tmp
-
-            x--
-            Dim s = 0 As Double
-            Dim i = _System_Log_N As Long
-            While i >= 1
-                Dim t = (i * x) As Double
-                s = t / (2 + t / (2 * i + 1 + s))
-                i--
-            Wend
-            Log = _System_LOG2 * k + x / (1 + s)
+            Log = _System_LOG2 * k + _System_Log1p(x - 1)
         End If
     End Function
@@ -602 +593 @@
     End Function
 Private
-    Static Const _System_Log_N = 7 As Long
     Static Const _System_Atan_N = 20 As Long
     Static Const _System_UrTan_N = 17 As Long

Include/Classes/System/OperatingSystem.ab

@@ -10 +10 @@
 Public
     ' Constractor
-    Sub OperatingSystem(platform As PlatformID, version As Version)
+    Sub OperatingSystem(platform As PlatformID, version As System.Version)
         pf = platform
         ver = version
@@ -18 +18 @@
     Sub OperatingSystem(vi As OSVERSIONINFOA)
         pf = vi.dwPlatformId As PlatformID
-        ver = New Version(vi.dwMajorVersion, vi.dwMinorVersion, vi.dwBuildNumber)
+        ver = New System.Version(vi.dwMajorVersion, vi.dwMinorVersion, vi.dwBuildNumber)
         sp = New String(vi.szCSDVersion As PCSTR)
     End Sub
@@ -24 +24 @@
     Sub OperatingSystem(vi As OSVERSIONINFOW)
         pf = vi.dwPlatformId As PlatformID
-        ver = New Version(vi.dwMajorVersion, vi.dwMinorVersion, vi.dwBuildNumber)
+        ver = New System.Version(vi.dwMajorVersion, vi.dwMinorVersion, vi.dwBuildNumber)
         sp = New String(vi.szCSDVersion As PCSTR)
     End Sub
@@ -33 +33 @@
     End Function
 
-    Const Function Version() As Version
+    Const Function Version() As System.Version
         Return ver
     End Function
@@ -71 +71 @@
 Private
     pf As PlatformID
-    ver As Version
+    ver As System.Version
     sp As String
 End Class

Include/Classes/System/Runtime/InteropServices/GCHandle.ab

@@ -12 +12 @@
     Sub Target(obj As Object)
         allocated.Add(obj)
-        handle = VarPtr(obj) 'ObjPtr
+        handle = ObjPtr(obj)
     End Sub
 

Include/Classes/System/Version.ab

@@ -5 +5 @@
 
 #require <api_winsock2.sbp>
+
+Namespace System
 
 Class Version
@@ -149 +151 @@
 End Class
 
+End Namespace 'System
+
 #endif '__SYSTEM_VERSION_AB__