Index: /trunk/ab5.0/ablib/src/Classes/System/IO/StreamWriter.ab
===================================================================
--- /trunk/ab5.0/ablib/src/Classes/System/IO/StreamWriter.ab	(revision 694)
+++ /trunk/ab5.0/ablib/src/Classes/System/IO/StreamWriter.ab	(revision 695)
@@ -55,5 +55,5 @@
 #ifdef UNICODE
 		encoder.Encode(StrPtr(buf), buf.Length As SIZE_T, s, last)
-		buf.Remove(0, buf.Length As SIZE_T)
+		buf.Remove(0, buf.Length)
 #else
 		Dim p = StrPtr(buf)
Index: /trunk/ab5.0/ablib/src/Classes/System/Text/Encoding.ab
===================================================================
--- /trunk/ab5.0/ablib/src/Classes/System/Text/Encoding.ab	(revision 694)
+++ /trunk/ab5.0/ablib/src/Classes/System/Text/Encoding.ab	(revision 695)
@@ -490,7 +490,7 @@
 		' サロゲートペアや結合文字列 (Combining Character Sequence)の途中でバッファが途切れている場合に対応する
 		' ToDo: エラー処理
-		Dim mbLen = WideCharToMultiByte(cp, 0, src, size, 0, 0, 0, 0)
+		Dim mbLen = WideCharToMultiByte(cp, 0, src, size As Long, 0, 0, 0, 0)
 		Dim mbBuf = GC_malloc_atomic(mbLen)
-		WideCharToMultiByte(cp, 0, src, size, mbBuf, mbLen, 0, 0)
+		WideCharToMultiByte(cp, 0, src, size As Long, mbBuf, mbLen, 0, 0)
 		s.Write(mbBuf, 0, mbLen)
 	End Sub