Changeset 597 for trunk/ab5.0

Timestamp:

Aug 19, 2008, 1:54:54 PM (16 years ago)

Author:

イグトランス (egtra)

Message:

ThreadStartを引数に取るThreadコンストラクタを追加。

File:

• trunk/ab5.0/ablib/src/Classes/System/Threading/Thread.ab (modified) (4 diffs)

trunk/ab5.0/ablib/src/Classes/System/Threading/Thread.ab

@@ -46 +46 @@
 Delegate Sub ThreadStart()
 
-
 /*
 関数ポインタ
 */
 TypeDef PTHREAD_START_ROUTINE = *Function(args As VoidPtr) As DWord
-
 
 /*
@@ -101 +99 @@
         throwingParamObject = Nothing
     End Sub
-
+    Sub Thread(threadStart As ThreadStart)
+        m_hThread=0
+        m_dwThreadId=0
+        m_Priority=ThreadPriority.Normal
+
+        m_fp=AddressOf(threadStartEntry)
+        m_args=ActiveBasic.AllocObjectHandle(threadStart) As VoidPtr
+
+        name = "sub thread"
+        state = ThreadState.Unstarted
+
+        isThrowing = False
+        throwingParamObject = Nothing
+    End Sub
     Sub Thread(obj As Thread)
         m_hThread=obj.m_hThread
@@ -251 +262 @@
     End Function
 
+    Static Function threadStartEntry(pThreadStart As VoidPtr) As DWord
+        Dim threadStart = ActiveBasic.ReleaseObjectHandle(pThreadStart As LONG_PTR) As ThreadStart
+        threadStart()
+    End Function
+
     /*------------------------ システム用 --------------------------*/
 Public
@@ -316 +332 @@
         For i=0 To ELM(ThreadNum)
             With collection[i]
-                If ActiveBasic.IsNothing( .thread ) Then
+                If Not ActiveBasic.IsNothing( .thread ) Then
                     .thread = Nothing
                     .stackBase = 0