Index: /Include/Classes/System/Object.ab
===================================================================
--- /Include/Classes/System/Object.ab	(revision 69)
+++ /Include/Classes/System/Object.ab	(revision 70)
@@ -21,5 +21,5 @@
 	' ハッシュコードを取得する
 	Virtual Function GetHashCode() As Long
-		' TODO: 実装
+		Return VarPtr( This ) As Long
 	End Function