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

Timestamp:

Apr 13, 2007, 5:12:31 PM (19 years ago)

Author:

イグトランス (egtra)

Message:

Object.ReferenceEqualsを追加

File:

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

Include/Classes/System/Object.ab

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