Ignore:
Timestamp:
Jul 21, 2008, 2:34:12 PM (13 years ago)
Author:
dai
Message:

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

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/ab5.0/ablib/src/Classes/System/Collections/Generic/List.ab

    r558 r560  
    1717    End Sub
    1818
    19 Public
    20     Sub List()
     19    Sub _Initialize( capacity = 0 As Long )
    2120        items = GC_malloc( 1 )
    2221
    2322        ' 列挙子の位置を初期化
    2423        Reset()
    25     End Sub
    26 
    27     /*!
    28     @brief  予め要素数を指定してList<T>を初期化
    29     @author NoWest
    30     @date   2008/07/13
    31     @param  リストの要素数
    32     */
    33     Sub List( capacity As Long )
    34         This.List()
     24
    3525        If capacity > 0 Then
    3626            This.size = capacity
     
    3929    End Sub
    4030
     31Public
     32    Sub List()
     33        _Initialize()
     34    End Sub
     35
     36    /*!
     37    @brief  予め要素数を指定してList<T>を初期化
     38    @author NoWest
     39    @date   2008/07/13
     40    @param  リストの要素数
     41    */
     42    Sub List( capacity As Long )
     43        _Initialize( capacity )
     44    End Sub
     45
    4146    /*!
    4247    @brief  既存の配列List<T>を初期化
     
    4651    */
    4752    Sub List( array As *T, length As Long )
    48         This.List( length )
     53        _Initialize( length )
     54
    4955        memmove( This.items, array, length * SizeOf(T) )
    5056        This.count = length
Note: See TracChangeset for help on using the changeset viewer.