Index: trunk/Include/Classes/ActiveBasic/Strings/Strings.ab
===================================================================
--- trunk/Include/Classes/ActiveBasic/Strings/Strings.ab	(revision 367)
+++ trunk/Include/Classes/ActiveBasic/Strings/Strings.ab	(revision 370)
@@ -93,5 +93,5 @@
 	ChrCmp = ChrCmp(s1, s2, System.Math.Min(size1, size2))
 	If ChrCmp = 0 Then
-		ChrCmp = size1 - size2
+		ChrCmp = ( size1 - size2 ) As Long
 	End If
 End Function
@@ -100,5 +100,5 @@
 	ChrCmp = ChrCmp(s1, s2, System.Math.Min(size1, size2))
 	If ChrCmp = 0 Then
-		ChrCmp = size1 - size2
+		ChrCmp = ( size1 - size2 ) As Long
 	End If
 End Function
Index: trunk/Include/Classes/System/DateTime.ab
===================================================================
--- trunk/Include/Classes/System/DateTime.ab	(revision 367)
+++ trunk/Include/Classes/System/DateTime.ab	(revision 370)
@@ -253,7 +253,7 @@
 				- Millisecond * TimeSpan.TicksPerMillisecond As Int64
 		If IsLeapYear(Year + Int(value)) Then
-			ticks += (value - Int(value)) * 366 * TimeSpan.TicksPerDay
-		Else
-			ticks += (value - Int(value)) * 365 * TimeSpan.TicksPerDay
+			ticks += ( (value - Int(value)) * 366 * TimeSpan.TicksPerDay ) As Int64
+		Else
+			ticks += ( (value - Int(value)) * 365 * TimeSpan.TicksPerDay ) As Int64
 		End If
 		Return date.AddTicks(ticks)
Index: trunk/Include/Classes/System/Drawing/Color.ab
===================================================================
--- trunk/Include/Classes/System/Drawing/Color.ab	(revision 367)
+++ trunk/Include/Classes/System/Drawing/Color.ab	(revision 370)
@@ -131,5 +131,5 @@
 		Dim max = System.Math.Max(System.Math.Max(r, g), b) As Long
 		Dim min = System.Math.Min(System.Math.Min(r, g), b) As Long
-		Return (max - min) / max
+		Return ( (max - min) / max ) As Single
 	End Function
 
@@ -139,5 +139,5 @@
 		Dim b = B
 		Dim max = System.Math.Max(System.Math.Max(r, g), b)
-		Return max * (1 / 255)
+		Return ( max * (1 / 255) ) As Single
 	End Function
 
Index: trunk/Include/Classes/System/GC.ab
===================================================================
--- trunk/Include/Classes/System/GC.ab	(revision 370)
+++ trunk/Include/Classes/System/GC.ab	(revision 370)
@@ -0,0 +1,24 @@
+Namespace System
+
+
+/*!
+@brief	GCを管理するためのクラス
+@author	Daisuke Yamamoto
+@date	2007/10/21
+*/
+Class GC
+Public
+
+	/*!
+	@brief	強制的にガベージコレクションを行う
+	@author	Daisuke Yamamoto
+	@date	2007/10/21
+	*/
+	Static Sub Collect()
+		_System_pGC->Sweep()
+	End Sub
+
+End Class
+
+	
+End Namespace
Index: trunk/Include/Classes/System/String.ab
===================================================================
--- trunk/Include/Classes/System/String.ab	(revision 367)
+++ trunk/Include/Classes/System/String.ab	(revision 370)
@@ -361,5 +361,5 @@
 	Private
 		Const Function indexOfCore(c As StrChar, start As Long, count As Long) As Long
-			indexOfCore = ActiveBasic.Strings.ChrFind(VarPtr(Chars[start]), count, c)
+			indexOfCore = ActiveBasic.Strings.ChrFind(VarPtr(Chars[start]), count, c) As Long
 			If indexOfCore <> -1 Then
 				indexOfCore += start
Index: trunk/Include/Classes/System/Text/StringBuilder.ab
===================================================================
--- trunk/Include/Classes/System/Text/StringBuilder.ab	(revision 367)
+++ trunk/Include/Classes/System/Text/StringBuilder.ab	(revision 370)
@@ -407,5 +407,5 @@
 		Dim curPos = 0 As Long
 		Do
-			Dim nextPos = ActiveBasic.Strings.ChrFind(VarPtr(chars[curPos]) As *StrChar, size As SIZE_T, StrPtr(oldStr), oldStr.Length As SIZE_T)
+			Dim nextPos = ActiveBasic.Strings.ChrFind(VarPtr(chars[curPos]) As *StrChar, size As SIZE_T, StrPtr(oldStr), oldStr.Length As SIZE_T) As Long
 			If nextPos = -1 As SIZE_T Then
 				Exit Sub
Index: trunk/Include/Classes/index.ab
===================================================================
--- trunk/Include/Classes/index.ab	(revision 367)
+++ trunk/Include/Classes/index.ab	(revision 370)
@@ -11,4 +11,5 @@
 #require "./System/Delegate.ab"
 #require "./System/Environment.ab"
+#require "./System/GC.ab"
 #require "./System/Math.ab"
 #require "./System/misc.ab"