Changeset 658 for trunk/ab5.0


Ignore:
Timestamp:
Nov 9, 2008, 2:39:10 PM (16 years ago)
Author:
イグトランス (egtra)
Message:

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

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/ab5.0/ablib/src/Classes/System/Object.ab

    r634 r658  
    1111        End Sub
    1212
    13         ' 2つのオブジェクトが等しいかどうかを判断する
     13        /*
     14        @brief 2つのオブジェクトが等しいかどうかを判断する。
     15        標準の実装はReferenceEqualsを用いて参照の等価を判断基準としている。
     16        */
    1417        Virtual Function Equals( object As Object ) As Boolean
    15             Return ObjPtr(This) = ObjPtr(object)
     18            Return ReferenceEquals(This, object)
    1619        End Function
    1720       
     
    2629        ' 参照先が等しいか判断する
    2730        Static Function ReferenceEquals(objectA As Object, objectB As Object) As Boolean
    28             If ObjPtr( objectA ) = ObjPtr( objectB) Then
    29                 Return True
    30             Else
    31                 Return False
    32             End If
     31            Return ObjPtr(objectA) = ObjPtr(objectB)
    3332        End Function
    3433
Note: See TracChangeset for help on using the changeset viewer.