Changeset 208 for Include/Classes/System/Math.ab

Timestamp:

Apr 7, 2007, 10:20:40 PM (18 years ago)

Author:

イグトランス (egtra)

Message:

[207]参照型変数のNothing初期化に対応する修正

File:

• Include/Classes/System/Math.ab (modified) (3 diffs)

Include/Classes/System/Math.ab

@@ -17 +17 @@
 
     Static Function Abs(value As Double) As Double
-        If value<0 then
-            return -value
-        Else
-            return value
-        End If
+        SetQWord(VarPtr(value), GetQWord(VarPtr(value)) And &h7fffffffffffffff)
     End Function
 
     Static Function Abs(value As Single) As Single
-        If value<0 then
-            return -value
-        Else
-            return value
-        End If
+        SetDWord(VarPtr(value), GetDWord(VarPtr(value)) And &h7fffffff)
     End Function
 
@@ -209 +201 @@
     'GetType
 
-    Static Function IEEERemainder(value1 As Double,value2 As Double) As Double
+    Static Function IEEERemainder(value1 As Double, value2 As Double) As Double
         Dim q As Double
         If value2=0 then return _System_GetNaN()
@@ -616 +608 @@
 Const _System_Atan_N = 20
 Const _System_UrTan_N = 17
-Const _System_D  = 4.4544551033807686783083602485579e-6
+Const _System_D = 4.4544551033807686783083602485579e-6
 Const _System_HalfPI = (_System_PI * 0.5)
 Const _System_InverseHalfPI = (2 / _System_PI) '1 / (PI / 2)