Changeset 370 for trunk/Include/system

Timestamp:

Nov 3, 2007, 5:18:30 PM (17 years ago)

Author:

dai

Message:

System.GCクラスを追加。
64ビットコンパイラで生じる警告を改修した。

Location:

trunk/Include/system

Files:

• gc.sbp (modified) (1 diff)
• string.sbp (modified) (2 diffs)

trunk/Include/system/gc.sbp

@@ -25 +25 @@
 Type _System_MemoryObject
     ptr As VoidPtr
-    size As Long
+    size As SIZE_T
     flags As DWord
     generationCount As Long

trunk/Include/system/string.sbp

@@ -39 +39 @@
 Function GetStr(psz As PSTR, len As SIZE_T, ByRef wcs As PWSTR) As SIZE_T
     If psz = 0 Then Return 0
-    Dim lenWCS = MultiByteToWideChar(CP_THREAD_ACP, 0, psz, len, 0, 0)
+    Dim lenWCS = MultiByteToWideChar(CP_THREAD_ACP, 0, psz, len As Long, 0, 0)
     wcs = _System_AllocForConvertedString(SizeOf (WCHAR) * (lenWCS + 1)) As PWSTR
-    GetStr = MultiByteToWideChar(CP_THREAD_ACP, 0, psz, len, wcs, lenWCS)
+    GetStr = MultiByteToWideChar(CP_THREAD_ACP, 0, psz, len As Long, wcs, lenWCS)
     wcs[GetStr] = 0
 End Function
@@ -73 +73 @@
 Function GetStr(psz As PWSTR, len As SIZE_T, ByRef mbs As PSTR) As SIZE_T
     If psz = 0 Then Return 0
-    Dim lenMBS = WideCharToMultiByte(CP_THREAD_ACP, 0, psz, len, 0, 0, 0, 0)
+    Dim lenMBS = WideCharToMultiByte(CP_THREAD_ACP, 0, psz, len As Long, 0, 0, 0, 0)
     mbs = _System_AllocForConvertedString(SizeOf (SByte) * (lenMBS + 1)) As PSTR
-    GetStr = WideCharToMultiByte(CP_THREAD_ACP, 0, psz, len, mbs, lenMBS, 0, 0) As SIZE_T
+    GetStr = WideCharToMultiByte(CP_THREAD_ACP, 0, psz, len As Long, mbs, lenMBS, 0, 0) As SIZE_T
     mbs[GetStr] = 0
 End Function