Changeset 147 for Include/Classes/System/Diagnostics/TraceListenerCollection.ab

Timestamp:

Mar 11, 2007, 4:40:51 AM (17 years ago)

Author:

dai

Message:

リスナオブジェクトをオブジェクトポインタではなくオブジェクトとして管理するようにした。

File:

• Include/Classes/System/Diagnostics/TraceListenerCollection.ab (modified) (4 diffs)

Include/Classes/System/Diagnostics/TraceListenerCollection.ab

@@ -1 +1 @@
 ' リスナコレクション
 Class TraceListenerCollection
-    ppListeners As **TraceListener
+    pListeners As *TraceListener
     count As Long
 Public
 
     Sub TraceListenerCollection()
-        ppListeners = _System_malloc( 1 )
+        pListeners = _System_malloc( 1 )
     End Sub
     Sub ~TraceListenerCollection()
-        Dim i As Long
-        For i = 0 To ELM( count )
-            Delete ppListeners[i]
-        Next
-        _System_free( ppListeners )
+        _System_free( pListeners )
     End Sub
 
@@ -22 +18 @@
     ' リスナを追加
     Sub Add( listener As TraceListener ) As Long
-        ppListeners = _System_realloc( ppListeners, ( count + 1 ) * SizeOf( *TraceListener ) )
-        ppListeners[count] = New TraceListener( listener )
+        pListeners = _System_realloc( pListeners, ( count + 1 ) * SizeOf( LONG_PTR ) )
+        pListeners[count] = listener
         count++
     End Sub
@@ -61 +57 @@
 
     ' インデクサ ( Getter )
-    Function Operator[] ( index As Long ) ByRef As TraceListener
+    Function Operator[] ( index As Long ) As TraceListener
         If index < 0 or count <= index Then
             ' TODO: エラー処理
@@ -67 +63 @@
         End If
 
-        Return ByVal ppListeners[index]
+        Return pListeners[index]
     End Function