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

Timestamp:

Apr 30, 2007, 3:32:05 PM (18 years ago)

Author:

dai

Message:

Object.ReferenceEqualsを修正（後日、ObjPtr形式に書き換える必要あり）。
Object.ToStringで返す文字列を型名に変更。
Objectクラスのテストケースを用意。

File:

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

Include/Classes/System/Object.ab

@@ -26 +26 @@
     ' 参照先が等しいか判断する
     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
+        If VarPtr( objectA ) = VarPtr( objectB) Then
+            Return True
+        Else
             Return False
-        Else
-            Return GetPointer(VarPtr(objectA)) = GetPointer(VarPtr(objectA))
         End If
     End Function
@@ -42 +40 @@
     ' オブジェクトに関係する文字列を返す
     Virtual Function ToString() As String
-        Return "Object"
+        Return GetType().Name
     End Function