Changeset 289 for Include/Classes/ActiveBasic/Math/Math.ab

Timestamp:

Aug 15, 2007, 3:29:59 AM (17 years ago)

Author:

dai

Message:

タイプミスを修正。

File:

• Include/Classes/ActiveBasic/Math/Math.ab (modified) (1 diff)

Include/Classes/ActiveBasic/Math/Math.ab

@@ -66 +66 @@
     Dim p = VarPtr(x) As *DWord
     p[1] And= &H7FF00000
-    IsFinite = p[1] And &H7FF00000 = &H7FF00000
+    IsFinite = ( p[1] And &H7FF00000 ) = &H7FF00000
 End Function