Changeset 330 for trunk/Include/Classes

Timestamp:

Sep 9, 2007, 12:41:35 PM (17 years ago)

Author:

dai

Message:

コンストラクタパラメータを処理中にGCがかかると、初期化中オブジェクトのスキャンで強制終了してしまうバグを修正。
グローバル領域に保持されるオブジェクトの一部がGCによって不正に回収されてしまうバグを修正。
Thread.Nameプロパティを実装

Location:

trunk/Include/Classes/System

Files:

• IO/DirectoryInfo.ab (modified) (1 diff)
• Threading/Thread.ab (modified) (6 diffs)

trunk/Include/Classes/System/IO/DirectoryInfo.ab

@@ -165 +165 @@
 
         Dim files As List<FileSystemInfo>
-        Dim i As Long
+        Dim i = 0 As Long
         Do
             If i > 1 Then

trunk/Include/Classes/System/Threading/Thread.ab

@@ -26 +26 @@
     m_fp As PTHREAD_START_ROUTINE
     m_args As VoidPtr
+    name As String
 
 Public
@@ -34 +35 @@
 
         m_fp=0
+
+        name = "sub thread"
     End Sub
     Sub Thread(fp As PTHREAD_START_ROUTINE, args As VoidPtr)
@@ -42 +45 @@
         m_fp=fp
         m_args=args
+
+        name = "sub thread"
     End Sub
 
@@ -50 +55 @@
         m_fp=obj.m_fp
         m_args=obj.m_args
+
+        name = "sub thread"
     End Sub
 
@@ -55 +62 @@
         m_hThread=hThread
         m_dwThreadId=dwThreadId
+
+        name = "sub thread"
     End Sub
 
@@ -83 +92 @@
         Return m_dwThreadId
     End Function
+
+    Function Name() As String
+        Return name
+    End Function
+    Sub Name( name As String )
+        This.name = name
+    End Sub