Changeset 239

Timestamp:

May 8, 2007, 1:32:54 AM (18 years ago)

Author:

イグトランス (egtra)

Message:

すみません、[238]では肝心の修正箇所が含まれていませんでした。今度こそMath.Absの修正です。

File:

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

Include/Classes/System/Math.ab

@@ -15 +15 @@
 
     Static Function Abs(value As Double) As Double
-        SetQWord(VarPtr(value), GetQWord(VarPtr(value)) And &h7fffffffffffffff)
+        SetQWord(VarPtr(Abs), GetQWord(VarPtr(value)) And &h7fffffffffffffff)
     End Function
 
     Static Function Abs(value As Single) As Single
-        SetDWord(VarPtr(value), GetDWord(VarPtr(value)) And &h7fffffff)
+        SetDWord(VarPtr(Abs), GetDWord(VarPtr(value)) And &h7fffffff)
     End Function