Changeset 224


Ignore:
Timestamp:
Apr 30, 2007, 3:32:05 PM (18 years ago)
Author:
dai
Message:

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

Files:
3 edited

Legend:

Unmodified
Added
Removed
  • Include/Classes/System/Object.ab

    r214 r224  
    2626    ' 参照先が等しいか判断する
    2727    Static Function ReferenceEquals(objectA As Object, objectB As Object) As Boolean
    28         If VarPtr(objectA) = 0 /*objectA = Nothing*/ Then
    29             Return VarPtr(objectB) = 0 'objectB = Nothing
    30         ElseIf VarPtr(objectB) = 0 /*objectB = Nothing*/ Then
     28        If VarPtr( objectA ) = VarPtr( objectB) Then
     29            Return True
     30        Else
    3131            Return False
    32         Else
    33             Return GetPointer(VarPtr(objectA)) = GetPointer(VarPtr(objectA))
    3432        End If
    3533    End Function
     
    4240    ' オブジェクトに関係する文字列を返す
    4341    Virtual Function ToString() As String
    44         Return "Object"
     42        Return GetType().Name
    4543    End Function
    4644
  • TestCase/SimpleTestCase/SimpleTestCase.idx

    r222 r224  
    44
    55'Win32APIの定義ファイル
     6
     7'プロジェクト内のプログラム ファイル
     8#include "ObjectTest.ab"
     9
     10'リソースファイル
     11#include "resource.ab"
     12#resource "SimpleTestCase.rc"
  • TestCase/SimpleTestCase/SimpleTestCase.pj

    r222 r224  
    2323#DEBUG_EXE_PATH=
    2424
    25 #RESOURCE=0
     25#RESOURCE=SimpleTestCase.rc
    2626
    2727#SOURCE
    2828SimpleTestCase.ab
     29ObjectTest.ab
Note: See TracChangeset for help on using the changeset viewer.