Changeset 279 for Include/Classes/System/Collections/ArrayList.ab

Timestamp:

Jun 15, 2007, 10:33:08 AM (17 years ago)

Author:

NoWest

Message:

キャスト以外のエラーは一応でなくなったが、他人のつくったものなので正しく訂正できたかは分かりませんので、要チェック。

File:

• Include/Classes/System/Collections/ArrayList.ab (modified) (3 diffs)

Include/Classes/System/Collections/ArrayList.ab

@@ -327 +327 @@
 
     Static Function ReadOnly(l As IList) As IList
-        Return ReadOnly(Adapter(VarPtr(l)))
+        Return ReadOnly(Adapter(l))
     End Function
 
@@ -334 +334 @@
         Dim i As Long
         For i = 0 To ELM(c)
-            Repeat->Add(VarPtr(x))
+            Repeat->Add(x)
         Next
     End Function
@@ -343 +343 @@
 
     Static Function Synchronized(l As IList) As IList
-        Return Synchronized(Adapter(VarPtr(l)))
+        Return Synchronized(Adapter(l))
     End Function