Changeset 232 for Include/Classes/System/Object.ab

Timestamp:

May 6, 2007, 8:08:17 PM (18 years ago)

Author:

dai

Message:

32bitコンパイラを更新（64bit版はしばらくお待ちください）
Importsステートメントを試験導入（スコープレベルでの使用はまだできません）。
グローバル変数、定数、クラス、グローバル関数に対してNamespaceの適用を可能にした。
ObjPtr関数を導入。
Mathクラスの構文ミスを修正。

File:

• Include/Classes/System/Object.ab (modified) (2 diffs)

Include/Classes/System/Object.ab

@@ -17 +17 @@
     End Function
     Static Function Equals( objectA As Object, objectB As Object ) As Boolean
-        If VarPtr(objectA) = 0 /*objectA = Nothing*/ Then
-            Return VarPtr(objectB) = 0 'objectB = Nothing
+        If ObjPtr(objectA) = NULL /*objectA = Nothing*/ Then
+            Return ObjPtr(objectB) = NULL 'objectB = Nothing
         Else
             Return objectA.Equals( objectB )
@@ -26 +26 @@
     ' 参照先が等しいか判断する
     Static Function ReferenceEquals(objectA As Object, objectB As Object) As Boolean
-        If VarPtr( objectA ) = VarPtr( objectB) Then
+        If ObjPtr( objectA ) = ObjPtr( objectB) Then
             Return True
         Else