Index: /Include/Classes/System/Math.ab
===================================================================
--- /Include/Classes/System/Math.ab	(revision 231)
+++ /Include/Classes/System/Math.ab	(revision 232)
@@ -60,5 +60,5 @@
 			Acos = _System_GetNaN()
 		Else
-			Acos = _System_HalfPI - ASin(x)
+			Acos = _System_HalfPI - Asin(x)
 		End If
 	End Function
@@ -252,5 +252,5 @@
 
 	Static Function Log10(x As Double) As Double
-		Return Log(x) / Log(10)
+		Return Math.Log(x) / Math.Log(10)
 	End Function
 
Index: /Include/Classes/System/Object.ab
===================================================================
--- /Include/Classes/System/Object.ab	(revision 231)
+++ /Include/Classes/System/Object.ab	(revision 232)
@@ -17,6 +17,6 @@
 	End Function
 	Static Function Equals( objectA As Object, objectB As Object ) As Boolean
-		If VarPtr(objectA) = 0 /*objectA = Nothing*/ Then
-			Return VarPtr(objectB) = 0 'objectB = Nothing
+		If ObjPtr(objectA) = NULL /*objectA = Nothing*/ Then
+			Return ObjPtr(objectB) = NULL 'objectB = Nothing
 		Else
 			Return objectA.Equals( objectB )
@@ -26,5 +26,5 @@
 	' 参照先が等しいか判断する
 	Static Function ReferenceEquals(objectA As Object, objectB As Object) As Boolean
-		If VarPtr( objectA ) = VarPtr( objectB) Then
+		If ObjPtr( objectA ) = ObjPtr( objectB) Then
 			Return True
 		Else
Index: /Include/Classes/System/Threading/Thread.ab
===================================================================
--- /Include/Classes/System/Threading/Thread.ab	(revision 231)
+++ /Include/Classes/System/Threading/Thread.ab	(revision 232)
@@ -61,9 +61,9 @@
 
 
-	Function Equals(ByRef obj_Thread As Thread) As BOOL
-		If m_dwThreadId=obj_Thread.m_dwThreadId Then
-			Return _System_TRUE
+	Function Equals( thread As Thread ) As Boolean
+		If m_dwThreadId = thread.m_dwThreadId Then
+			Return True
 		End If
-		Return _System_FALSE
+		Return False
 	End Function
 
Index: /Include/system/gc.sbp
===================================================================
--- /Include/system/gc.sbp	(revision 231)
+++ /Include/system/gc.sbp	(revision 232)
@@ -112,5 +112,5 @@
 		Dim thread As Thread(hTargetThread,GetCurrentThreadId(),0)
 
-		_System_pobj_AllThreads->BeginThread(VarPtr( thread ),_System_gc_StackRoot_StartPtr As *LONG_PTR)
+		_System_pobj_AllThreads->BeginThread(ObjPtr( thread ),_System_gc_StackRoot_StartPtr As *LONG_PTR)
 
 	End Sub
@@ -245,5 +245,5 @@
 
 	Static Function IsNull( object As Object ) As Boolean
-		If VarPtr( object ) = NULL Then
+		If ObjPtr( object ) = NULL Then
 			Return True
 		End If
Index: /TestCase/SimpleTestCase/ObjectTest.ab
===================================================================
--- /TestCase/SimpleTestCase/ObjectTest.ab	(revision 231)
+++ /TestCase/SimpleTestCase/ObjectTest.ab	(revision 232)
@@ -16,6 +16,5 @@
 	UnitTest( "Object.ReferenceEquals(case 2)", Object.ReferenceEquals( obj1, obj3 ) )
 
-	' TODO: ObjPtr関数の実装を待つ
-	'UnitTest( "Object.GetHashCode", obj1.GetHashCode() = ObjPtr( obj1 ) )
+	UnitTest( "Object.GetHashCode", obj1.GetHashCode() = ObjPtr( obj1 ) )
 
 	UnitTest( "Object.ToString", obj1.ToString() = "Object" )