Changeset 34 for Include/basic

Timestamp:

Dec 24, 2006, 12:30:24 AM (18 years ago)

Author:

イグトランス (egtra)

Message:

String.LengthのPrivate化に対応する変更

File:

• Include/basic/prompt.sbp (modified) (1 diff)

Include/basic/prompt.sbp

@@ -461 +461 @@
                 Dim pTempStr As *String
                 pTempStr=_System_InputDataPtr[i] As *String
-
-                pTempStr->Length=i3
-                pTempStr->Chars=_System_realloc(pTempStr->Chars,pTempStr->Length+1)
-                memcpy(pTempStr->Chars,buf.Chars,pTempStr->Length)
-                pTempStr->Chars[pTempStr->Length]=0
+                pTempStr->ReSize(i3)
+                memcpy(pTempStr->Chars, buf.Chars, pTempStr->Length)
+                pTempStr->Chars[pTempStr->Length] = 0
         End Select