Changeset 695

Timestamp:

2009/03/23 00:44:20 (3 years ago)

Author:

egtra

Message:

64ビットビルドで警告が出るコードの修正

Location:

trunk/ab5.0/ablib/src/Classes/System

Files:

• IO/StreamWriter.ab (modified) (1 diff)
• Text/Encoding.ab (modified) (1 diff)

trunk/ab5.0/ablib/src/Classes/System/IO/StreamWriter.ab

@@ -55 +55 @@
 #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)

trunk/ab5.0/ablib/src/Classes/System/Text/Encoding.ab

@@ -490 +490 @@
         ' サロゲートペアや結合文字列 (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