Changeset 237 for Include/basic/function.sbp

Timestamp:

May 7, 2007, 4:22:52 PM (17 years ago)

Author:

イグトランス (egtra)

Message:

#_fullcompileで検出されたエラーの修正（明らかに判るもののみ）

File:

• Include/basic/function.sbp (modified) (4 diffs)

Include/basic/function.sbp

@@ -508 +508 @@
     i2=0
     Do
-        Oct$[i2] = &h30 +((num \ CDWord(8 ^ i)) And &H07) ' &h30 = Asc("0")
+        Oct$[i2] = &h30 +((num \ CDWord(8 ^ i)) And &H07) As StrChar ' &h30 = Asc("0")
         If i=0 Then Exit Do
         i--
@@ -715 +715 @@
     Dim i As Long
     For i=0 To num-1
-        memcpy(VarPtr(String$[i*length]), StrPtr(buf), SizeOf (StrChar) * length)
+        memcpy(VarPtr(String$.Chars[i*length]), StrPtr(buf), SizeOf (StrChar) * length)
     Next
 End Function
@@ -1194 +1194 @@
     Dim i = 0 As SIZE_T
     For i = 0 To ELM(size)
-        _System_StrCmp = s1[i] - s2[i]
-        If _System_StrCmp <> 0 Then
+        _System_StrCmpN = s1[i] - s2[i]
+        If _System_StrCmpN <> 0 Then
             Exit Function
         End If
@@ -1204 +1204 @@
     Dim i = 0 As SIZE_T
     For i = 0 To ELM(size)
-        _System_StrCmp = s1[i] - s2[i]
-        If _System_StrCmp <> 0 Then
+        _System_StrCmpN = s1[i] - s2[i]
+        If _System_StrCmpN <> 0 Then
             Exit Function
         End If