Changeset 193 for Include

Timestamp:

Mar 28, 2007, 10:55:14 AM (18 years ago)

Author:

イグトランス (egtra)

Message:

Stringのデフォルトコンストラクタでもメモリ確保するように戻す、api_imm.sbpの修正

Location:

Include

Files:

• Classes/System/String.ab (modified) (2 diffs)
• api_imm.sbp (modified) (2 diffs)

Include/Classes/System/String.ab

@@ -21 +21 @@
 
     Sub String()
-        Chars = 0
+        Chars = _System_malloc(SizeOf (StrChar)) '0
+        Chars[0] = 0
         m_Length = 0
     End Sub
@@ -304 +305 @@
     End Function
 Private
-    Static Const Function ConcatStrChar(text1 As *StrChar, text1Length As Long, text2 As *StrChar, text2Length As Long) As String
+    Static Function ConcatStrChar(text1 As *StrChar, text1Length As Long, text2 As *StrChar, text2Length As Long) As String
         With ConcatStrChar
             .AllocStringBuffer(text1Length + text2Length)

Include/api_imm.sbp

@@ -275 +275 @@
 #endif 'NOGDI
 #endif '_INC_GDI
-#endif
 
 Declare Function ImmConfigureIMEA Lib "imm32" (hkl As HKL, hwnd As HWND, dwMode As DWord, lpData As VoidPtr) As BOOL
@@ -707 +706 @@
 
 #endif '_IMM_
-