Changeset 651 for trunk/ab5.0

Timestamp:

Nov 3, 2008, 10:21:23 PM (16 years ago)

Author:

イグトランス (egtra)

Message:

ワイド文字列を引数に取るコンストラクタで、誤ったポインタの扱いを修正。

File:

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

trunk/ab5.0/ablib/src/Classes/System/String.ab

@@ -35 +35 @@
 
         Sub String(initStr As PCWSTR, start As Long, length As Long)
-            If start < 0 Or length Or start + length < 0 Then
-                Throw New ArgumentOutOfRangeException("String constractor: One or more arguments are out of range value.", "start or length or both")
-            End If
-            validPointerCheck(initStr + start, length)
-            Assign(initStr + start, length)
+            If start < 0 Or length < 0 Then
+                Throw New ArgumentOutOfRangeException("start or length or both")
+            End If
+            validPointerCheck(VarPtr(initStr[start]), length)
+            Assign(VarPtr(initStr[start]), length)
         End Sub