Changeset 224

Timestamp:

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

Author:

dai

Message:

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

Files:

• Include/Classes/System/Object.ab (modified) (2 diffs)
• TestCase/SimpleTestCase/SimpleTestCase.idx (modified) (1 diff)
• TestCase/SimpleTestCase/SimpleTestCase.pj (modified) (1 diff)

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
 

TestCase/SimpleTestCase/SimpleTestCase.idx

@@ -4 +4 @@
 
 'Win32APIの定義ファイル
+
+'プロジェクト内のプログラム ファイル
+#include "ObjectTest.ab"
+
+'リソースファイル
+#include "resource.ab"
+#resource "SimpleTestCase.rc"

TestCase/SimpleTestCase/SimpleTestCase.pj

@@ -23 +23 @@
 #DEBUG_EXE_PATH=
 
-#RESOURCE=0
+#RESOURCE=SimpleTestCase.rc
 
 #SOURCE
 SimpleTestCase.ab
+ObjectTest.ab