Index: Include/Classes/System/Object.ab
===================================================================
--- Include/Classes/System/Object.ab	(revision 51)
+++ Include/Classes/System/Object.ab	(revision 51)
@@ -0,0 +1,25 @@
+Class Object
+Public
+
+	' 2つのオブジェクトが等しいかどうかを判断する
+	Virtual Function Equals( ByRef obj As Object ) As Boolean
+		If VarPtr( This ) = VarPtr( obj ) Then
+			Return True
+		Else
+			Return False
+		End If
+	End Function
+	Static Function Equals( ByRef objA As Object, ByRef objB As Object ) As Boolean
+		Return objA.Equals( objB )
+	End Function
+
+	' ハッシュコードを取得する
+	Virtual Function GetHashCode() As Long
+		' TODO: 実装
+	End Function
+
+	' オブジェクトに関係する文字列を返す
+	Virtual Function ToString() As String
+		Return "Object"
+	End Function
+End Class