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

Timestamp:

Mar 30, 2007, 4:22:30 AM (17 years ago)

Author:

dai

Message:

オブジェクトの循環参照を許容した（構造体はダメ）。
抽象クラスをメンバの型に指定できるようにした。
メンバがオブジェクトだったとき、自動的にNewするのをやめ、初期値としてNothingを指定するようにした。

【ArrayListの改良】
・ArrayList_Elementを廃止し、実装をArrayListのprivateに置いた。
・一通りのパラメータを*ObjectからObjectへ変更した。

【その他】
・TypeInfo改良中...
・Objectクラスに実行時型情報用のtypeInfoメンバを追加した。

File:

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

Include/Classes/System/Object.ab

@@ -1 +1 @@
 Class Object
+
+    ' 実行時型情報
+    typeInfo As TypeInfo
+
 Public
 
@@ -8 +12 @@
 
     ' 2つのオブジェクトが等しいかどうかを判断する
-    Virtual Function Equals( ByRef obj As Object ) As Boolean
-        If VarPtr( This ) = VarPtr( obj ) Then
+    Virtual Function Equals( object As Object ) As Boolean
+        If This.GetHashCode() = object.GetHashCode() Then
             Return True
         Else
@@ -15 +19 @@
         End If
     End Function
-    Static Function Equals( ByRef objA As Object, ByRef objB As Object ) As Boolean
-        Return objA.Equals( objB )
+    Static Function Equals( objectA As Object, objectB As Object ) As Boolean
+        Return objectA.Equals( objectB )
     End Function
 
@@ -28 +32 @@
         Return "Object"
     End Function
+
+/*
+    Function Operator Downcast() As VoidPtr
+    End Function
+*/
 End Class