Changeset 560 for trunk/ab5.0/ablib/src/Classes/System/Collections/Generic/List.ab

Timestamp:

Jul 21, 2008, 2:34:12 PM (16 years ago)

Author:

dai

Message:

#183への対応。コンストラクタ、デストラクタが直接呼び出された場合はエラーとして扱うようにした。
（64bit版は後ほどコミットします）

File:

• trunk/ab5.0/ablib/src/Classes/System/Collections/Generic/List.ab (modified) (3 diffs)

trunk/ab5.0/ablib/src/Classes/System/Collections/Generic/List.ab

@@ -17 +17 @@
     End Sub
 
-Public
-    Sub List()
+    Sub _Initialize( capacity = 0 As Long )
         items = GC_malloc( 1 )
 
         ' 列挙子の位置を初期化
         Reset()
-    End Sub
-
-    /*!
-    @brief  予め要素数を指定してList<T>を初期化
-    @author NoWest
-    @date   2008/07/13
-    @param  リストの要素数
-    */
-    Sub List( capacity As Long )
-        This.List()
+
         If capacity > 0 Then
             This.size = capacity
@@ -39 +29 @@
     End Sub
 
+Public
+    Sub List()
+        _Initialize()
+    End Sub
+
+    /*!
+    @brief  予め要素数を指定してList<T>を初期化
+    @author NoWest
+    @date   2008/07/13
+    @param  リストの要素数
+    */
+    Sub List( capacity As Long )
+        _Initialize( capacity )
+    End Sub
+
     /*!
     @brief  既存の配列List<T>を初期化
@@ -46 +51 @@
     */
     Sub List( array As *T, length As Long )
-        This.List( length )
+        _Initialize( length )
+
         memmove( This.items, array, length * SizeOf(T) )
         This.count = length