Changeset 426 for trunk/Include/Classes/ActiveBasic/Math

Timestamp:

Feb 26, 2008, 3:33:49 AM (17 years ago)

Author:

イグトランス (egtra)

Message:

StreamReaderの実装開始。
Stringの+演算子で右辺がNullのときに起こるアクセス違反を回避。

File:

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

trunk/Include/Classes/ActiveBasic/Math/Math.ab

@@ -46 +46 @@
 
 Function IsNaN(ByVal x As Double) As Boolean
-    Dim p As *DWord
-    p = VarPtr(x) As *DWord
+    Dim p = VarPtr(x) As *DWord
     IsNaN = False
     If (p[1] And &H7FF00000) = &H7FF00000 Then
@@ -103 +102 @@
     Dim s = 0 As DWord
     If sign Then s = (1 As DWord) << 31
-    Dim p As *DWord
-    p = VarPtr(GetInf) As *DWord
+    Dim p = VarPtr(GetInf) As *DWord
     p[0] = 0
     p[1] = &h7FF00000 Or s