Changeset 276 for Include/Classes/ActiveBasic

Timestamp:

Jun 15, 2007, 3:58:19 AM (17 years ago)

Author:

dai

Message:

タイプミスを修正

File:

• Include/Classes/ActiveBasic/Math/Math.ab (modified) (2 diffs)

Include/Classes/ActiveBasic/Math/Math.ab

@@ -70 +70 @@
 
 Function GetNaN() As Double
-    SetQWord(VarPtr(_System_GetNaN) As *QWord, &H7FF8000000000000)
+    SetQWord(VarPtr(GetNaN) As *QWord, &H7FF8000000000000)
 End Function
 
@@ -76 +76 @@
     Dim s = 0 As QWord
     If sign Then s = 1 << 63
-    SetQWord(VarPtr(_System_GetInf) As *QWord, &h7FF0000000000000 Or s)
+    SetQWord(VarPtr(GetInf) As *QWord, &h7FF0000000000000 Or s)
 End Function