Changeset 658

Timestamp:

2008/11/09 14:39:10 (4 years ago)

Author:

egtra

Message:

New式でステップインしたときにステップ数を減らすためReferenceEqualsの修正

File:

• trunk/ab5.0/ablib/src/Classes/System/Object.ab (modified) (2 diffs)

trunk/ab5.0/ablib/src/Classes/System/Object.ab

@@ -11 +11 @@
         End Sub
 
-        ' 2つのオブジェクトが等しいかどうかを判断する
+        /*
+        @brief 2つのオブジェクトが等しいかどうかを判断する。
+        標準の実装はReferenceEqualsを用いて参照の等価を判断基準としている。
+        */
         Virtual Function Equals( object As Object ) As Boolean
-            Return ObjPtr(This) = ObjPtr(object)
+            Return ReferenceEquals(This, object)
         End Function
         
@@ -26 +29 @@
         ' 参照先が等しいか判断する
         Static Function ReferenceEquals(objectA As Object, objectB As Object) As Boolean
-            If ObjPtr( objectA ) = ObjPtr( objectB) Then
-                Return True
-            Else
-                Return False
-            End If
+            Return ObjPtr(objectA) = ObjPtr(objectB)
         End Function