Changeset 695 for trunk/ab5.0/ablib/src/Classes/System/Text

Timestamp:

Mar 23, 2009, 12:44:20 AM (15 years ago)

Author:

イグトランス (egtra)

Message:

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

File:

• trunk/ab5.0/ablib/src/Classes/System/Text/Encoding.ab (modified) (1 diff)

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