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

Timestamp:

May 7, 2007, 4:22:52 PM (18 years ago)

Author:

イグトランス (egtra)

Message:

#_fullcompileで検出されたエラーの修正（明らかに判るもののみ）

File:

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

Include/Classes/System/Object.ab

@@ -10 +10 @@
     ' 2つのオブジェクトが等しいかどうかを判断する
     Virtual Function Equals( object As Object ) As Boolean
-        If This.GetHashCode() = object.GetHashCode() Then
+        If ObjPtr(This) = ObjPtr(object) Then
+'       If This.GetHashCode() = object.GetHashCode() Then
             Return True
         Else
@@ -16 +17 @@
         End If
     End Function
+    
     Static Function Equals( objectA As Object, objectB As Object ) As Boolean
         If ObjPtr(objectA) = NULL /*objectA = Nothing*/ Then
             Return ObjPtr(objectB) = NULL 'objectB = Nothing
         Else
-            Return objectA.Equals( objectB )
+            Return objectA.Equals(objectB)
         End If
     End Function
@@ -35 +37 @@
     ' ハッシュコードを取得する
     Virtual Function GetHashCode() As Long
-        Return VarPtr( This ) As Long
+        Return ObjPtr( This ) As Long
     End Function