Changeset 249 for Include/Classes/System/Threading/Thread.ab

Timestamp:

May 15, 2007, 2:44:41 AM (17 years ago)

Author:

dai

Message:

[32bitコンパイラ]ByRef指定のInteger/Byte型のローカル変数に値を代入すると強制終了してしまうバグを修正。
（呼び出し単体コードも対応→）関数の戻り値オブジェクトのメンバ・メソッドを一時オブジェクトを介さずに参照できるようにした。
オブジェクトの先頭バッファのサイズを4ポインタ分に拡張した。

File:

• Include/Classes/System/Threading/Thread.ab (modified) (4 diffs)

Include/Classes/System/Threading/Thread.ab

@@ -44 +44 @@
     End Sub
 
-    Sub Thread(ByRef obj As Thread)
+    Sub Thread(obj As Thread)
         m_hThread=obj.m_hThread
         m_dwThreadId=obj.m_dwThreadId
@@ -151 +151 @@
 
     Static Function CurrentThread() As Thread
-        Dim obj_Thread As Thread()
-        _System_pobj_AllThreads->CurrentThread(obj_Thread)
-        Return obj_Thread
+        Return _System_pobj_AllThreads->CurrentThread()
     End Function
 End Class
@@ -311 +309 @@
 
     'カレントスレッドを取得
-    Function CurrentThread(ByRef obj_Thread As Thread) As Boolean
+    Function CurrentThread() As Thread
         Dim dwNowThreadId As DWord
         dwNowThreadId=GetCurrentThreadId()
@@ -318 +316 @@
         For i=0 To ELM(ThreadNum)
             If ppobj_Thread[i]->ThreadId=dwNowThreadId Then
-                obj_Thread.Thread(ByVal ppobj_Thread[i])
-                Return True
-            End If
-        Next
-
-        Return False
+                Return ByVal ppobj_Thread[i]
+            End If
+        Next
+
+        ' TODO: エラー処理
+        OutputDebugString( "カレントスレッドの取得に失敗" )
+        debug
     End Function