Changeset 689 for trunk/ab5.0/ablib/src/Classes/System

Timestamp:

Mar 12, 2009, 5:31:06 PM (15 years ago)

Author:

イグトランス (egtra)

Message:

書換禁止のバッファを書き換えるバグを修正

File:

• trunk/ab5.0/ablib/src/Classes/System/Text/StringBuilder.ab (modified) (5 diffs)

trunk/ab5.0/ablib/src/Classes/System/Text/StringBuilder.ab

@@ -123 +123 @@
                 Return This
             Else
-                Throw New ArgumentNullException("StringBuilder.Append: An argument is null", "s")
+                Throw New ArgumentNullException("s")
             End If
         ElseIf startIndex < 0 Or count < 0 Then
-            Throw New ArgumentOutOfRangeException("StringBuilder.Append: One or more arguments are out of range value.", "startIndex or count or both")
+            Throw New ArgumentOutOfRangeException("startIndex or count or both")
         End If
         appendCore(s, startIndex, count)
@@ -164 +164 @@
     Const Sub CopyTo(sourceIndex As Long, ByRef dest[] As Char, destIndex As Long, count As Long)
         If dest = 0 Then
-            Throw New ArgumentNullException("StringBuilder.CopyTo: An argument is null", "sourceIndex")
+            Throw New ArgumentNullException("sourceIndex")
         ElseIf size < sourceIndex + count Or sourceIndex < 0 Or destIndex < 0 Or count < 0 Then
-            Throw New ArgumentOutOfRangeException("StringBuilder.CopyTo: One or more arguments are out of range value.", "startIndex or count or both")
+            Throw New ArgumentOutOfRangeException("startIndex or count or both")
         End If
 
@@ -174 +174 @@
     Function EnsureCapacity(c As Long) As Long
         If c < 0 Or c > MaxCapacity Then
-            Throw New ArgumentOutOfRangeException("StringBuilder.Append: An argument is out of range value.", "c")
+            Throw New ArgumentOutOfRangeException("c")
         ElseIf c > Capacity Then
             Dim p = GC_malloc_atomic((c + 1) * SizeOf (Char)) As *Char
@@ -397 +397 @@
 Public
     Override Function ToString() As String
+        separateBuffer()
         chars[size] = 0
         Return New String(This)
@@ -437 +438 @@
             Throw New ArgumentOutOfRangeException("StringBuilder.Chars: An argument is out of range value.", "i")
         End If
+        separateBuffer()
         chars[i] = c
     End Sub