Changeset 651 for trunk

Timestamp:

2008/11/03 22:21:23 (4 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