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

Timestamp:

Aug 20, 2008, 3:37:44 AM (16 years ago)

Author:

イグトランス (egtra)

Message:

ThreadPoolの実装、WaitHandle.WaitAny/WaitAllのまともな実装、ほか。

File:

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

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

@@ -460 +460 @@
 
     Function FindThreadInfo(threadID As DWord) As *ThreadInfo
+        EnterCriticalSection(CriticalSection)
         Dim i As Long
         For i = 0 To ELM(ThreadNum)
@@ -467 +468 @@
             End If
         Next
+        LeaveCriticalSection(CriticalSection)
     End Function
 
@@ -476 +478 @@
 Public
     Function GetCurrentException() As ExceptionService
+        EnterCriticalSection(CriticalSection)
         Dim dwNowThreadId = GetCurrentThreadId()
-
         Dim i As Long
         For i=0 To ELM(ThreadNum)
             With collection[i]
                 If .thread.ThreadId = dwNowThreadId Then
-                    Return .exception
+                    GetCurrentException = .exception
+                    Exit For
                 End If
             End With
         Next
-
-        OutputDebugString( Ex"カレントスレッドの取得に失敗\r\n" )
-        Return Nothing
+        LeaveCriticalSection(CriticalSection)
+        If ActiveBasic.IsNothing(GetCurrentException) Then
+            OutputDebugString(Ex"カレントスレッドの取得に失敗\r\n")
+        End If
     End Function
 End Class