Changeset 546 for trunk/ab5.0/ablib/src/Classes

Timestamp:

Jul 13, 2008, 2:57:57 PM (16 years ago)

Author:

dai

Message:

・VarPtr(This)をエラーとして扱うようにした。
・デリゲート生成時にThisに対するオブジェクトポインタが正常に取得できないバグを修正。
（※64bit版を後日対応すること）

File:

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

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

@@ -178 +178 @@
     Sub Start()
         Dim pfn = AddressOf(_run) As LONG_PTR
-        m_hThread=CreateThread(NULL,0,pfn As LPTHREAD_START_ROUTINE,VarPtr(This),CREATE_SUSPENDED,m_dwThreadId)
+        m_hThread=CreateThread(NULL,0,pfn As LPTHREAD_START_ROUTINE,ObjPtr(This),CREATE_SUSPENDED,m_dwThreadId)
         SetThreadPriority(m_hThread,m_Priority)
         This.Resume()